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JASMIN2 


et ses LOGICIELS 

LA PUISSANCE NOUVELLE POUR ORIC 1 ET ATMOS 

JASMIN *.'b! u" p««»«luit fIRAN ORiC 1 ATMOS soi»l -Ivs OBlC I Tr> 


Nouveau lecteur de disquette 3", 
double têtes, double faces 
500 K*octets 
directement adressables 


sans retourner la disquette 


JASMIN 2 

3490 F 

LECTEUR SUPPLEMENTAIRE 

2490 F 

DUO 

5980 F 

JASMIN PRINTER 

2690 F 

ENTRAINEMENT A PICOT 

350 F 

CABLE DE LIAISON 

160 F 

DISQUETTE VIERGE 

70 F 

DISQUETTE VIERGE par 10 

650 F 

AMPLIBUS 

390 F 

LIVRE TD0S 

150F 

LIVRE ELECTRONIQUE 

110F 



NOS LOGICIELS 


JASMIN EASYTEXT 

590 F 

ORIGRAPH 

350 F 

JASMIN MULTI FICH 

590 F 

LE REBELLE 

219 F 

ASSEMBLEUR 

490 F 

LES CONQUERANTS 

219 F 

MATHEGRAPH3 D 

390 F 

LOGO-GRAPH 

390 F 


JASMIN-FORTH, un vrai FORTH ATMOS sur 
disquette. 

Ce langage évolué, beaucoup plus rapide et plus 
dense que le BASIC. l'Interpréteur compilateur 
FORTH vous offre un accès simple aux disques JAS 
MIN et à la programmation structurée. 

Il possède en particulier un éditeur puissant, un 
Assembleur 6502. un désassembleur et un décom 
pilateur FORTH. 

Pour bien maitnser le FORTH. consultez les ouvrages 
spécialisés tels que FORTH, de SALMAN. TISSE 
RAND et TOULOUT des Editions EYROLLES. 

790 F 

JASMIN CALC (ATMOS). en langage machine, 
qui possède les fonctions classiques des Tableurs, 
mais avec un plus constitué par des fenêtres à 
l'écran pour les fonctions, et une fonction particu 
lière pour les éditions de factures. Fonctionne uni 
quement pour ATMOS. 

590 F 


NOUVEAU ! 


JASMITELl: Enfin, grâce au lecteur de disquette 
JASMIN, un programme simule un MINITEL avec 
l'intermédiaire d'un modem type DIGITELEC. Il vous 
est possible, sans minitel, d'entrer directement en 
conversation avec les différents serveurs, de mettre 
en mémoire de masse JASMIN les données qui vous 
sont proposées et vous pourrez ultérieurement rap 
peler sans payer de taxe, tout ce qui aura été enre 
qistré en mémoire. 

690 F 

L'Ergonomie du programme est remarquable et les 
utilisateurs professionnels vont faire bon accueil à ce 
système d'un prix très étudié. 


Enfin grande nouvelle pour les jeux : 

Un accord entre TRAN et COBRASOFT vient d'inter¬ 
venir la plupart des ieux de COBRASOFT seront 
dorénavant disponibles sur disquette JASMIN 


Meurtre à grande 
vitesse 

219 F 

1815 Napoléon 

219 F 

Pin-Bail + 
Challenger 

219 F 

Hyper Space + 
Durendal 

219 F 

Mots croisés + 
Jeux de lettres 

219 F 

ToolKit 

299 F 


LES TROIS LOGICIELS : EASYTEXT MULTIFICH et JASMIN CALC 1 3 90 F ttc ou DEUX au choix - 990 F ttc 


Offrez-vous DE SUITE votre JASMIN et payez le solde à CREDIT dans 3 mois 


Ens. K à 
3990 F ne 

JASMIN 2 + 
Livre TDOS + 

1 LOGICIEL 
au choix 

a commande 

90 F + port 

et 15 mensualités 

de : 

325,85 F 

Ens. L 
4390 F tt 

JASMIN 2 + 
Livre TDOS + 

2 LOGICIELS 
au choix 

la commande 
c 1 90 F * port 

et 21 mensualités 

de 

263,39 F 

Ens. M 
4690 F ttc 

JASMIN 2 + 
Livre TDOS + 

3 LOGICIELS 
au choix 

à la commande 
190 F t port 

et 15 mensualités 

de : 

373,33 F 

DIVERS 

Si vous prenez une 
des offres spéciales + 
JASMIN-PRINTER. 
celle-ci vous est offerte 
à 2350 F ttc 

Coût total du crédit ♦ DMI 987.75 F 

Coût total du crédit * DMI 1331.19 F 

Coût total du crédit ♦ DMI 1099.95 F 


14200 L'IMPUISION 31/93.33 88 

26500 ECA ELECTRONIQUE 75 43.13 38 

31000 MICRO DIFFUSION 6172.81 17 

33800 SON VI0E0 2000 56 92.91 78 

38000 CHABERT 76 46 62 73 

57100 ELECTRONIC CENTER 82153.86 60 

59300 0YNAMIC HIFI 27/30.20.04 

59650 MICROPUCE 20/47.18.57 

67150 FRISTCH ETS 88/98.03.51 

69001 0RDIELEC OHUINASELF 78/28.23.07 c 

69007 J.C.R LYON COMPUTER 78/61 16 39 -<\° x 

78000 MICTEL 30/71 75 01 

94300 ORDIVIOUEl 1/328.22.06 


Spécialistes 

75012 PARIS VISM0 338 60 00 
13014 M0SSE UC 91 98 80.72 




Taux TEG 24,90%. Pour tout renseignement téléphonez au 94.21.19.68 Monsieur FOIGOAS 

BON DE COMMANDE à recopier et à envoyer : 

T.R.A.N. sari. - 53, impasse Blériot 

831 30 LA GARDE - Tél : (94) 21.1 9.68 

Nom :. 

Adresse :. 

Code Postal :. Ville. 

Date : . Tél. 

Forfait de Port Express en France : 80 F TTC 


Désignation 


Quantité 


Px unit TTC 


Ml TTC 


Ci-joint un chèque 

que vous Rencaisserez qu’à l’expédition de l’appareil 












































L es vacances... Le temps libre est enfin conquis. Promenades en montagne, 
sorties en mer, visites de vieux châteaux, les journées ne sont pas assez 
longues. C'est aussi l'heure de redécouvrir notre patrimoine littéraire ou 
musical de savourer les dernières bandes dessinées ou de s'offrir des soirées 


cinéma. 


Et si on prenait aussi le temps de programmer ? L'esprit est libre des tracas du 
travail, le corps détendu des fatigues des transports : l'heure est venue pour 


CREER. 


Si vous manquez d'inspiration ou de savoir-faire, et que l'extrémité de vos doigts 
brûle d'envie de caresser le clavier, voici quelques pages de programmes en tous 
genres qui vous occuperont agréablement. 

La rédaction n'est pas en vacances et prépare efficacement la rentrée... Soyez au 
rendez-vous ! 


r " " ÀNNÔNCËZ-VOUS ! ' " 1 


les petites annonces et les messages 



L 


Joindre 3 timbres à 2,20 F 



J 
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La couverture de THEORIC a été 
réalisée d'après un dessin de 
Yannick BOURREE. 

Si vous ne partez pas en vacan¬ 
ces et que vous rêvez de la mer, 
tapez sur votre ORIC PLAY 2, 
15,4,5000 et contemplez la cou¬ 
verture. 
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jeu- 



P lus besoin de trouver un par¬ 
tenaire pour jouer à la bataille 
navale, ORIC va vous affronter. 
Un jeu où il ne faut pas trop réflé¬ 
chir, voilà qui reposera vos 
méninges après de solides exer¬ 
cices de programmation. 

Le principe du jeu est archi- 
connu : chaque partenaire pos¬ 
sède trois navires qu'il dispose 
sur une grille de 10x10 cases. 
Il faut, bien entendu, détruire les 
bateaux de son adversaire. 

Pour simplifier, ORIC et vous dis¬ 
posez de : 

— une vedette (occupant 1 
case), 

— un cuirassé (occupant 2 
cases), 

— un porte-avions (occupant 3 


cases). 

Le premier qui a détruit les trois 
navires de son adversaire a 
gagné. Les règles du jeu vous 
sont rappelées dans le pro¬ 
gramme, ainsi que la manière de 
disposer les bateaux. 
L'algorithme de recherche utilisé 
par ORIC est fort simple. Une 
grande part est réservée au 
hasard, sauf s'il touche un bateau 
occupant deux ou trois cases. 
Dans ce cas, il essaiera les cases 
adjacentes. 

Le programme a été réalisé dans 
un souci de compatibilité ORIC-1 
et ATMOS, ce qui explique la pré¬ 
sence de nombreux DOKE au 
moment des différents afficha¬ 
ges. En effet, aux adresses # 12 


et # 13 se trouve une variable 
système contrôlant la position, 
dans l'écran, du prochain PRINT. 
Au début du jeu, ORIC dispose sa 
flotte en secret sur la grille 
rouge ; positionnez les vôtres sur 
la verte. Les coups joués sont 
représentés par un petit rond, les 
coups au but par une Les 
ponctuations sonores sont sur 
option, selon le choix que vous 
ferez au début du programme. 
Lorsqu'un navire est coulé, son 
nom est effacé de la liste de la 
flotte. 

Un dernier mot, si vous possédez 
le synthétiseur vocal, votre pro¬ 
gramme lui fera prononcer les 
"touché”, "coulé" et "à l'eau". 
Embarquez ! 

-EK 


10 : 

20 : 

50 CLEAR: RESTORE :HI RES :G0SUB98W 
55 REM Pour le synthe vocal 
60 D1MSPV. 120 > : POKE1009.128 
7 0 FORI=1TO20:READSPX( 1 >îNEXT 

90 DATA0.8.30.30,45.20,3.0,13,30.30,50.20,3.0,26.1.45.53,3 
100 PRINT:PR1NT:PRlNT , As-tu le synthétiseur vocal <0/N> ’*:3ETRî 
110 IPR*= * <:» * THENS r=1 

115 PRINTiPRINTrPRINT’Veux-tu entendre le son (O N) 0 * :ôE”P* 

120 IFR*=*0‘THENBR=1 

125 PPINT:°RINT:PRlN T 'VeuK-tu ia recile du .eu <0/N 7 ':GETRî: T E)~ 
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Illustration: Jean-Luc AULNETTE 
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LES MOTS 
CACHES DE 


théorie 


Une fois n'est pas coutume, et 
comme c'est l'été, voici un petit 
jeu qui vous fera passer d'agréa¬ 
bles instants. Dans la grille sont 
cachés 32 titres de programmes 
disponibles sur ORIC chez diffé¬ 
rents éditeurs. Saurez-vous les 
retrouver ? 

Vous pouvez vous aider, si vrai¬ 
ment vous ne trouvez pas, de la 
liste que vous trouverez quelque 
part dans ce journal, mais 
d'abord, essayez sans la consul¬ 
ter. Enfin, vous pourrez consul¬ 
ter la grille "solution" lorsque 
vous jetterez l'éponge ! 

Bon courage ! 
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U n jeu dans un espace galac¬ 
tique qui reste à découvrir, 
alliant adresse et réflexion. Ça 
vous tente ? Alors, à vos claviers, 
et n'oubliez pas le sandwich car 
il est long (pas le sandwich, le 
programme !). 

La dangereuse armada des 
Bryxons menace de détruire la 
Terre dont vous êtes le dernier 
espoir. A bord de votre vaisseau 
équipé de réacteurs et de lasers, 
vous devez à tout prix détruire le 
vaisseau amiral des Bryxons. 
Attention aux mauvaises rencon¬ 
tres ! 

COMMANDES 

En appuyant sur les différentes 
flèches, vous donnez une direc¬ 
tion à votre vaisseau. Il la gardera 
jusqu'à ce que vous la changiez 
en lui en donnant une autre ou 
l'immobilisiez au moyen de 
Ispace bar]. 

Disposant de 4 lasers, vous aurez 
4 lignes de tir : T pour tirer vers 
le haut à gauche, Y vers le haut 
à droite, G vers le bas à gauche 
et H vers le bas à droite. 

Les repères sur la gauche et la 
droite du tableau de bord indi¬ 
quent la quantité de munitions et 
de carburant non-consommée. 
L'écran central de contrôle vous 
donne l'ensemble de votre zone : 
votre vaisseau, les ennemis et, 
eventuellement, les planètes. Les 
messages apparaissent dans la 
bande centrale du tableau de 


bord. Le cadran circulaire de gau¬ 
che est le compte à rebours, celui 
de droite, un détecteur de vais¬ 
seaux ennemis. L'écran radar 
représente l'ensemble de la 
galaxie : les petits points repré¬ 
sentent les planètes, le petit 
carré, votre base et le rond, votre 
vaisseau. En arrivant sur une pla¬ 
nète, vous remplissez votre réser¬ 
voir. A votre base, le pilote auto¬ 
matique se déclenche. Vous fai¬ 
tes le plein de munitions et de 
carburant. 

Quand vous rencontrez le vais¬ 
seau amiral des Bryxons, vous ne 
pouvez plus tirer qu'avec Ispace 
bar] et ne pouvez plus bouger à 
cause du champ magnétique 
dégagé par le vaisseau. Votre but 
est de détruire la navette enne¬ 
mie. 

FONCTIONNEMENT 
DU PROGRAMME 

100 à 1100 

Initialisation des variables et 
GOSUB 16000 : présentation. 
GOSUB 21000 et 22000 : musi¬ 
que. GOSUB 1 5000 et 39000 : 
redéfinitions. 380000 : remplis¬ 
sage de fichiers. 30000 : tableau 
de bord. 31000 et 32000 : rem¬ 
plissage de fichiers et visualisa¬ 
tion de la galaxie. 

20000 à 20099 
Lecture du clavier. 

20100 à 20199 

Test décidant du déplacement 

dans la zone et sortie de la zone. 


20200 à 20275 
Déplacement du vaisseau 
ennemi. 

20280 à 20299 

Tir du vaisseau ennemi. 

20400 à 20479 

Test décidant de la sortie de la 

zone ou de la galaxie. 

20480 à 20500 

Dessin de la nouvelle zone avec, 

éventuellement, la planète et son 

nom. 

20510 à 20590 

Initialisation des coordonnées du 

vaisseau ennemi dans la zone. 

20600 à 20640 

Test pour connaître la direction 

du tir choisi. 

20670 à 20691 
Tir raté. 

20692 à 20699 

Test pour connaître la quantité de 

munitions restante. 

20700 à 20730 
Test pour savoir si la direction de 
tir choisie correspond à la posi¬ 
tion du vaisseau ennemi. 

20740 à 20780 

Calcul de la longueur du tir. 

20790 à 20820 

Test de la réussite du tir. 

20830 

Tir 

20840 

Test décidant de l'explosion 
ennemie. 

20850 à 20890 
Retour à zéro. 

30000 à 30520 

Dessin du tableau de bord. 

30600 à 30800 
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JCU 


Couleurs du tableau de bord. 
31000 à 31070 
Positionnement du vaisseau ami¬ 
ral et des planètes. 

31080 à 31130 
Positionnement des navettes 
ennemies. 

49000 à 49337 
Affichage du dessin. 

49350 à 49560 
Chute et explosion finale. 
49570 à 50350 
Affichage de "The End". 
18000 à 18075 
Dessin de la base. 

18080 à 18950 
Pilotage automatique. 

18960 à 18972 
Remplissage de carburant. 
18980 à 18990 
Remplissage des munitions. 
18991 à 18997 
Départ de la base. 

19000 à 19480 

Dessin du vaisseau amiral. 

19500 à 19550 

Descente de la navette ennemie. 

19560 à 19770 

Jeu de la navette ennemie. 


19780 à 19990 
Dessin final. 

VARIABLES IMPORTANTES 

X et Y 

Coordonnées du vaisseau dans 
une zone. 

XV et YV 

Coordonnées de la zone du vais¬ 
seau. 

XE et YE 

Coordonnées de la zone du vais¬ 
seau amiral ennemi. 

G et H 

Coordonnées de la navette enne¬ 
mie dans une zone. 

CA 

Carburant. 

MU 

Munitions. 

TP 

Temps. 

VA 

Nombre de vaisseaux abattus. 
VB 

100 points rapportés par le vais¬ 
seau amiral. 

SC 


Score. 

ME$ 

Message. 

NP$(1 5) 

Noms des 15 planètes. 

CS( 1 5) 

Couleurs du sol des 1 5 planètes. 
V$(11,6) 

Ligne d'instruction (1 er chiffre) de 
la page d'instructions (2 e chiffre). 
C(20,13) 

Numéro de la planète contenue 
dans une zone. 

V(20,13) 

= 0 : pas de vaisseau dans la 
zone. 

= 1 : un vaisseau dans la zone. 

MODIFICATIONS 
ATMOS VERS ORIC-1 

Outre la modification prévue par 
l'auteur (lignes 130 et 140), il 
faut : 

— remplacer les ' par REM, 

— aux lignes 51020 et 51090, 
changer 40 par 39. 
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MARTIENS 

..^oo"o°o 0 c 


Vincent JAJOLET 





La parole est à l'auteur : 

L e jeu consiste à détruire le 
plus rapidement possible les 
OVNIS débarquant du haut de 
l'écran, et vous, vous vous dépla¬ 
cez de gauche à droite avec les 
touches que vous avez choisies 
au départ ; les points sont calcu¬ 
lés en fonction de cette rapidité. 
Pour plus de renseignements, 
vous pouvez vous reporter au lis¬ 
ting du programme à partir de la 
ligne 600 à la ligne 619. Sachez 
tout de même que mon record est 
de 492 points (durement gagné, 
avec une partie gratuite et une 
deuxième qui était proche), et ce 


score équivaut environ à une note 
de 4/20 puisque le score maxi¬ 
mum à ce jeu est de 241 5 points 
(étant donné qu'il y a 35 colon¬ 
nes de 23 points maximum pos¬ 


sibles, et qu'il y a au maximum 
deux parties gratuites, donc Hl- 
SCORE possible = (35 x 23) x 3 = 
2415). Qui atteindra les 10/20 ? 

Ajoutons simplement que le jeu 
a été écrit sur ATMOS et "pré¬ 
adapté" pour ORIC-1. 

Si vous possédez un ORIC-1, 
attention aux 5 premières lignes : 
remplacez ' par REM et modifiez 
les lignes ci-dessous. Après quoi, 
il ne vous restera plus qu'à jouer ! 

PUn:.l3.v«UlE-V0US LES IKSTBUCTIOHS >0-H PLBÎI.IS.I7 Pli 
731.13.U 

1M0Î 0061»! MM 

19005 :rM>»«8T)Of>lArQ.O.O.C retjrk 

IWO? IFftMHttiaitO!* 

lUl? 50TQIMM 


A 


€ 

€ 

€ 

€> 

€ 

€ 

€ 

€ 

Æl. 


c 

€ 

€ 

€ 

€ 

€ 

€ 

€ 

C 

€ 


C 

O 

€ 

€> 

€ 

€ 

C 

€ 

O 

€ 


riü 


* - «M**m«*m***** 

1 ' ** LES MARTIENS ** 

2 ' ****************** 

3 ' PAR VINCENT JAJÛLET 

4 ' POUR CRIC ATMOS 

5 CLSPLÛT8,13,"VEUILLEZ PATIENTEP S.V.P." RI 
ÙM84 R9=*AC PLAY8,8,8,10Û0 

6 INK6■PAPER8 P0KE618.10 F0RN*1TÛ4Ô P0KE47999 
♦ N.3Z NEXT HI«492R8«*B4 

7 HI*=STR»(HI> RESTORE IFPEEk<50800 ) s 169THENC 
ALL*E78AELSECALL*E6CA 

8 GOSUB40O IFREE-ki. #0800 >=165THENCALL#ES>3DEL$E 
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CALL*E8Û4 

9 GOSU8600 DÛKE#306,*FFFF 

10 CLS:FÛRK2=2T024STEP2 PLÛT2,K2,6 NEXT 

11 C=18 D=25 B*1 INK3 PLÛT2.26.5 PLOT2.0.1PL 
OT1,25,t PL0T2,0,3 PAPER0 

12 C$=CHRS(254) PÜKE4801 ?,? PLOT8,13,6:PÛKE48 
000.2 J=40 PÛKE618,10 

13 F0RA=3T032STEP4 PLÙTA,2b,"defa" PLOTfl,0,C* 
♦C*+C$+C* NEXT PLÛT35,26,"def" 

14 PLOT35,0,C*+CS+C* PLOTC,D,“ * " PLÛT10.13. 
“APPUYER SUR UNE TÜUCHE." 

15 PLÛT8,13,20 PLÛT34,13,16 GOSUB300 

16 DOKEB306,42710 GETM2*GETR4*:IFPEEK(#D000) 
=169THENCALL4FB14 

1? IFPEEK(4D000 >=166THENCALL4FAFA 
18 PLOT 10.13,“ ":PL0T9, 

13,32 : PLOTS,13,32 

20 S7»S7+1 

21 A=INT<RND<1>*35>+3 

22 IFS7>35THEN690 

23 IFSCRNC A,B X >32THENJ=21 GOTO31ELSEJ*40 

30 PLOTfl,B,"b" 

31 I FC>36THENC*36 

34 PLOTC,D,“ * M 

35 IFPEEK<4208)»R10THEN100 

36 IFPEEK<#208>*R9THENC*C-1 PLAY4.4,1,100 

37 IFPEEKC «208 >*R8THENC*C*1 PLAY4,4,1,100 

38 IFC<2THENC=2 

39 GÛTOJ 

40 B=B+1 

50 IFB*25THENB*1 GÛTO20ELSE30 
100 IFSCRNCC+1,B>*98flNOSCRN<C+l,24)*32THEN190 

105 GÛTÛ36 
190 PLflV4,4,4,4 
200 E=24-B 

210 PLOTfl-1 ,B+1,STRKE), IFSCRNC A—1,1 )<>32THEN 
PLOTA-1,B+l,"b" 

212 F0RN*8+2T024 PLOTfl,N,"c“ :NEXT:R*R+E R$=ST 
R»<R) 

213 FORZ*lTOLEN<R*) E*=MID*< R*,Z, 1 ):E=flSC(E«) 
POKE48010+Z,E NEXT 

215 B=i PLAY0,0,0,0 GÜTO20 
300 A**“OPqrst“;B*=“lnmopqrst" 

310 F0RZ*1T0LEN(A«> E4-MID4CA4,Z,1>:E*ASC<E$> 
PÛKE48004+Z,E:NEXT:R4-STR4C R > 

311 FÛRN=1T0LEN(R$): E4*MID4<R4,N,1 ) :E*ASC<E4 
) ;POKE48003+Z+N,E NEXT 

312 FORA=48003«-Z+NTÛ48016 POKEA,32 NEXT 

315 Ffiez=lTOLEN( BS ) E*=MID*< BS, 2.1 ):E=fl3C(ES) 
PÛKE48018+Z.E NEXT 

316 FÛRN*1TOLENC HIS ) ES=MIO$< HIS,N,1 ) E=flSC(E 
S):POKE48017+Z+N,E NEXT 

317 FÛRA=48017+Z*NTO48040 POKEfl,32 :NEXT 
320 RETURN 

400 REPEAT READB 
410 P0KE46856+A,B 
420 fl=A+1 

430 UNTILfl=160 

431 REM 

435 REM «REDEFINITION DE CARACTERES** 

436 REM 

440 DATA0,0,0,12,30,30,63,33,8,28,42,62,28,20 
,34,0,0,30,18.18.18,18,38,0 
450 DATA36,61,63,63,63,63,63,63,50,63,63,63,6 
3,63,63,63,24,28,63,63,63,63,63 
460 DATA63,4,55,63,63,63,63,63,63 
470 DATA32,25,11,15,15,11,25,32,1,38,40,60,60 


,40,38,1 

471 0ATA8,8,8,8,8,42,28,8,0,0,8, 16,63,16,8,0 

472 DATAIS,18,18,30,18,18,18,0,28,8,8,8,8,8,2 
8,0,0,0,0,30,30,0,0,0 

473 DATA38,16,16,30,2,2,30,0,30,18,16,16,16,1 
8,30,0,30,18,18,18,18,18,30,0 

474 DATA30,18,18,30,24,20,18,0,30,16,16,28,16 
,16,30,0,0,24,24.0,24,24,0,0 

479 DATA30,IS,18,18,18,18,30,0 

480 DATA12,4,4,4,4,4,4,0,30,2,2,30,16,16,30,0 
.30,2,2,14,2,2,30.0,18,16.18 

481 DATA30,2,2,2,0,30.16,16,30,2,2,30,0,30,16 
,16,30,18,18,30,0,30,2,2,4,8 

482 DATAIS,16,0,30,18,18,30,18,18,30,0.30,18, 
13,30,2,2,30,0 

495 FüRA=lTÜ30 READE;PQKE46463+A,E NEXT 

499 FÛRA=48000TO48040 PÛKEA,32 NEXT 

500 RETURN 
540 REM 

550 REM **INSTRUCTIONS** 

560 REM 

600 AS*" UN MATIN DE DECEMBRE 2020, VOTRE 
COMMANDANT VOUS DEMANDE" 

610 B4*“ D'ARRETER L' INVASION DES MARTIENS 
DEBARQUANT SUR TERRE. ■ 

611 CS*" LE JEU CONSISTE A DETRUIRE LES OVNI 
SDEBARQUANT DU HAUT DE L'ECRA" 

612 D$ = "N (b) A L'AIDE DE VOTRE ASTRONEF ». i> 
ET DE VOS REFLEXES..." 

613 U$="PLUS VOUS DETRUISEZ L'OVNI AU-DESSUSD 
E VOUS " 

614 LS="LE PLUS RAPIDEMENT POSSIBLE. PLUS VO 
TRE BONUS EST ELEVE." 

615 MS="VOUS VOUS DEPLACEZ GRACE AUX TOUCHESD 
U CURSEUR k GAUCHE j " 

616 .44=" DROITE, ET POUR TIRER ESPACE." 

617 Ü1S=" VOUS AVEZ UNE PARTIE GRATUITE A 20 
0'POINTS ET AUSSI A 500 POINTS." 

618 024=".. 

619 034=“ BON, JE VOUS LAISSE, VOTRE CÜMM 
AN- DANT VOUS RECLAME..." 

658 Z4=" LES MARTIENS hi PAR V.JAJû 
LET“ 

659 FÜRA=1TÛLEN<Z4>E4«NID4(Z4,A.1 > E*ASC<E4> 
PÛKE47999+A, E:NEXT:POKE48000,21 

660 PLÛT2,13,“VOULEZ-VOUS LES INSTRUCTIONS <0 
/N) ?" PL0T1,13,17:PL0T39,13,16 

661 UAIT53 

662 GOSUB15020 IFAA< >*95ANDAA< >488THEN662 

666 FORN*1T025:POKE48000+N.32:NEXT 

667 IFAA=#88THENFORN=1TO40 P0KE47999+N,32 :NEX 
T :PLAY0,0,0,0 GOSUB18000 RETURN 

668 PLAY0,0,0,0.GOSUB17000 :IFPEEKC 4D000 )*169T 
HENCALL#FB14ELSECALL*FAFA 

669 CLSPRINTPRINTCHR4<4>" "CHR4C27)"J 

LES MARTIEN S“CHR4(4> 

670 PL0T2,1,1 : PLÛT2,2,1:PLÛT4,l,23:PL0T4,2,23 
A P0KE618,1I 

671 PRINT PRINT FORA*1T0LENCA4 ) :PRINTMIDtCA4, 

* A,1>;: PLAY2,2,2,2 UAIT7:NEXT 

^ 672 FORA*1T0LEN< B* ) •PRINTMID4C B*,A,1);:PLAY2, 

2,2,2 : MAIT7;NEXT PRINT" 

Æk 

▲ 673 F0RA*1T0LEN(C«>:PRINTMID»<C»,A,1>;:PLAY2, 

» 2,2,2-WAIT7;NEXT 

674 FÜRA*1T0LEN<D4):PRINTMID4(D4,A, 1>; PLAY2, 

* 2,2,2:WAIT7:NEXT:PL0T24,10 ,2 GOSUB 

A B00 
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673 PLÛT28,10,6 FORA»1T0LEN< U$ ) :PRINTMID$<Ut, 
A, 1 >,:PLAY2,2,2,2UAIT7:NEXT 

676 FûRA*lTOLEN<Lt>PRINTNIDt<Lt,A,1>,:PLAY2. 
2< 2,2 :WflIT?:NEXT 

677 GOSUB810 FORA-1TOLEN<Ht>:PRINTMIDt<Mt,A,1 
>; : PLAY2,2,2,2 UAIT7:NEXT 

678 FORA-lTOLEN<N$):PRINTMIDt<Nt,A,1>;:PLAY2, 

2,2,2 UAIT7:NEXTPRINT 

677 GÛSUB810 FÛRB= ITÙLEN*. 11$ • PRlNTN10$vMt.A.i 
>, PLAY2.2.2.2 UAIT7 NEXT 

678 FORA= 1TÛL£N\ N$ < PRlNTMIO$'. N$ , A , 1 •, PLAY2 . 

2.2.2 HAIT? NEXT FRINTT 

678 F0RA=1T0LEN-,Û1$ ’ PRINTHI0$'.Û1$, A, 1 >, PLAY 

2.2.2.2 HAIT? NEXT 

680 FüRA= 1 TÜLEN Û2$> F PINTM ID$'> 02$ . A . 1 ,, PlA, 

2,2,2,2 HAIT? NEXT 

681 FÜRA=1TÛLEN' 03$ ) PRINTMIDtv03$.A, 1 ,, PlA', 

2,2,2,2 UAIT7 NEXT PRINT PRINT 

683 FRI NT" "CHF $>■ 27 >"LAPPUY‘ER SUR E':F 

ACE." PL0T2.235 PÛKE618.lô 

684 PLAY0.0,0,0 

685 GOSUB15020 IFAA< ,*Ô4THEHc,85 

686 PLAY0,0,0,0 

687 FORN= 1TÛ40 FÛKE47899+N,32 NEXT 

688 GOSUB18000 
688 RETURN 

680 PING CLS PLÜT8,13,6 PLÛT9.13,20 PL0T32.13 
,16 F6=4802? PLÜT9,12,20 

681 PLÛT32,12,16 PL0T3,14,20 PL0T32,14,16 IFR 
>HITHENGO3UB850 

682 IFA0=12THEN685ELSEIFA0=1THEN700 

683 IFR>=200THEnPLOT13,13,"PARTIE GRATUITE".A 
0=12 S?=0 UAIT50 GÜTÜ18000 

685 IFR>=500THENPLOT13,13,"PARTIE GRATUITE" A 
0=1 57=0 UAIT50 GÛTO18000 
700 FLÛT10,13,"VOULEZ-VOUS REJOUER ?" A0=0 R= 
0 R$ = " 

705 GOSUB17000 

710 GÜSUB15020 IFAA=*85THENPLAY0,0,0,0 37=0 R 
=0 GOTO 10 

720 IFAA<>*88THEN?10 

730 IFPEEK<*0000)=169THENCALL583ELSECALL555 
740 ENO 

300 PRINT" ", PLO 

T35,9,6 PLÜT31,8,2 RETURN 
810 PRINT" ", RETURN 

350 HI=R HI$=R$ F0RA=1T0LEN<R$) E$=MID$<R$,A, 

1):E=ASC( E$)^ PÙKEF6+A,E NEXT 

351 G0T0855 

852 REM 

853 REM «CAS OU HI-SCORE BATTU»* 

854 REM 

855 PRINT PRINT-BRAVO !! Hl-SCÛRE BATTU !!!.. 

." FÛRN=1TÛ10000STEP100 SÛUNDl.N,1 

2 NEXT 

356 PLAY0,0,0,0 
360 RETURN 
870 REM 

900 REM «MUSIQUE** 

910 REM 

11100 DATAI,8,8.8,1,8,8,8,1,8,8,3,1,8,8,8.1,8 
,8,8,1,8,8,8,3,6,10,5,3,3,10,3 
11110 DATAI,10,8,10,1,10,8,10,1,8,8,8.1,8.8,8 
,1,8,8,8,1,8,8,8 

11120 DATA3.3.10.5.3.*.1*.i 10 8.to .1 ta. ©. 
10 

11130 DATA 1,8,8,3,1,8,8,8.1,8.8,8,1,8,8,8,3,3 
,10,5,3,3,10,3 


Aq 

11140 DATAI,1,8,1,1,1,8,1,1,1,8,1,1,1,8,1.1,1 
,8,1,1,1,8,1,1,1,8,1,1,1,8,1 
11150 DATAI,8,8,8,1,8,8,8,1,8,8,8,1,8,8,8,1,8 
,8,8,1,8,3,8,3,6,10,5,3,3,10,3 
11160 DATAI,10,8,10,1 v 10,8,10,1,8,8,8,1,8,8,8 
,1,8,8,8,1,8,8,8 

11170 DATA3,3,10,5,3,6,10,6,1,10,8,10,1,10,8, 

10 

11180 DATAI,8,8.8,1,8,8.8,1,8,8.8,1,8,8.8,3,3 
,10,5,3,3,10,3 

11190 DATAI,1,8,1,1,1^8,1,1,1,8,1,1,1,8,1,1,1 
.8,1,1,1,8,1,1,1,8,1,1,1,8,1 
11200 DATA3.3,10,3,3.3,10,3,5,5,12,5,5.5,12,5 

11210 DATA6.6,1,6,6,6,1.6,1,1,8,1,1,1.8,1 
11220 DATA3.3,10,3,3,3,10,3,5,5,12,5,5.5.12,5 

11230 DATA6.6,1,6,6,6,1,6,1,1,8, 1,1, 1,8,1 
11240 DATA3,3,10,3,3,3,10,3,5,5,12,5,5,5,12.5 

11250 DATA6,6,1,6,6,6,1.6,1,1,8,1.1,1,8,1 
11260 DATA3,3,10,3,3,3,10,3,5,5,12,5,5,5,12,5 

11270 DATA6.6,1,6,6,6,1,6,8,8,3,8,8,8,3,8,0,0 

1500C READX,Y IFX=0THENGOSUB17000 GOTO15000 
15010 PLAY?,0,2,200 MUSICl,2,X,6 MUSIC2.4.Y.8 
MUSIC3,2,Y,7WAIT5 RETURN 
15020 AA=PEEK< *208 ) 

15030 IFAA=56THENGÛSUB15000ELSERETURN 
16000 COTÛ15020 
17000 RESTORE 

17010 FORE4*1TO240 READY7NEXT 
17020 RETURN 
17030 REM 

17040 REM «CHANGEMENT DES TOUCHES** 

17050 REM 

18000 CLS PLÛT0,13,"VOULEZ-VOUS CHANGER LES T 
OUCHES DU JEU 7 “ 

18005 GOSUB1502O IFAA<>«95ANDAAv >*38THEN18005 

18010 IFAAM88THENPLAY0.0,0,0 RETURNELSEIFAA= 
I95THEN18019 
18015 GOTO18005 

18019 P0KE618,2 :PLAY0,0,0,0 CETU8$ CLS PRINT" 
CHANGEMENT DES TOUCHES DU JEU 

M 

18020 PRINT PRINT"T0UCHE DIRECTION GAUCHE, 
GETR9$ R9=PEEK<*208> 

18021 PRINTR9$" VALIDATION?" GETÛ?$ IFÛ7$<>"Ü 
A "THEN18020 

18022 CLS PRINT" CHANGEMENT DES TOUCHES D 
A IJ JEU" 

A 18023 PRINT PRINT"T0UCHE DIRECTION DROITE 7 ", 

A GETR8$ R8=PEEK<#208> 

18024 PRINTR8$" VALIDATION 7 " GET09$ IF09$- >"Ü 
A "THEN18022 

A 18025 CLS PRINT" CHANGEMENT DES TOUCHES D 
. U JEU" 

A 18030 PRINT PRINT"TOUCHE OU TIR?"; GETR10* RI 
A 0 = PEEK< *208 ) 

A 18035 PRINTR10*" VALIDATION?" GETO10* IFO10$< 
>"O"THEN18030 
A 18040 RETURN 

A 19000 FORN-0TO1000STEP10 SOUND 1,N, 12 NEXT:PLA 
A Y0,0,0,0 

19010 HAIT300 

A 19020 GOTÛ10 ■ 
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S eptembre ! Pendant que la 
vigne finit de mûrir et que les 
raisins se gorgent de soleil, il est 
temps de ranger sa cave et de 
prévoir de combler les vides lais¬ 
sés dans les casiers. 

Gérer sa cave, connaître sa carte 
de vins, choisir ses vins pour un 
repas de fête... quoi de plus facile 
avec CAVORIC ! 

Je vous propose de ranger vos 
bouteilles dans un fichier à accès 
direct comportant 100 rubriques 
et qu'il vous sera très facile de 
modifier en fonction de vos 
besoins. 

Voyons d'abord le menu : 

1 — Vins blancs 
2 — Vins rouges 
3 — Stop ou Modification de 
fichier 

4 — Impression de la liste des 
vins sur MCP 40. 

Le choix de l'option 1 propose, 
par exemple, de consulter la liste 
des vins blancs d'Alsace, de 


Bourgogne, de Loire... et donne, 
pour chaque type de vin, le nom 
du cru, le millésime, le nombre de 
bouteilles, ainsi qu'une apprécia¬ 
tion qualitative sur la valeur de ce 
millésime (de 1 à 5 étoiles). 

Il suffit de créer, selon la syntaxe 
du TDOS, un fichier comportant 
100 enregistrements de 50 
octets chacun permettant de ran¬ 
ger les quatre variables caracté¬ 
risant un vin : 

— A$, le nom du cru 

— A%, le millésime 

— B%, le nombre de bouteilles 

— C$, le nombre d'étoiles 

Au lieu de charger une à une cha¬ 
que rubrique du fichier, il me 
paraît plus astucieux de créer le 
fichier et de mettre artificielle¬ 
ment toutes les variables A% et 
B% à 0 par le petit programme 
suivant : 

10 !CREATE "CAVE,D=20,50,100' 
20 !0PEN "CAVE=20" 

30 A$="":C$=““ 


40 A*/.=0 : B’/.= 1 0 

50 FOR E=1 TO 100 

60 IWRITE 20,E’A$,A7.,B*/.,C* 

70 NEXT E 
80 ! CLOSE 20 

A l’exécution de ce petit pro¬ 
gramme, la machine semblera 
"plantée'' pendant une minute et 
demie que dure l'initialisation du 
fichier. Ceci est normal. 

Il suffit ensuite d'utiliser l'option 
3 du menu pour "modifier” le 
fichier ainsi créé ; le remplissage p 
très fastidieux des diverses rubri- ^ 
ques peut alors se faire par peti- 3 
tes séquences. Les numéros de ^ 
ligne réservés pour chaque type J 3 
de vin sont indiqués dans le pro- g 
gramme "CAVORIC" : il n'est $ 
nullement nécessaire de remplir c 
toutes les lignes ! € 

J 

A vos claviers, et bon courage ! = 
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1702 'WRITE 20,I’A$,AX,BX,C* 

1710 GOTO15<40 

1720 'CLOSE 20 : END 

2000 1 LISTE DES VINS 

2010 LPRINTCHRtt 18) rLPRINT’SC* iLPRINfA' 

2020 LPRINTTAB(3)*»*« Cartp des .nns au ‘jZt;* **♦':LPR1NT 

2030 FORI=1TO100 

2040 'TAKE 20,rA$,A7.,BÏ,C$ 

2050 IFB7.)0THENLPP INT A$ ; TAK 23 ) Aï ; TAB ( 30 ) U ; TAB » 35 » Ci ; TAB ( 42 > ! 
2060 NEXTI 
2070 RETURN 



jeu 


DECOUVRI 
LA FRANCE 


J. JOUAS 


V ous êtes en vacances, soit, 
mais ce n'est pas une raison 
pour délaisser la géographie ! 
Saurez-vous replacer correcte¬ 
ment sur la carte, les villes de 
France proposées par ORIC ? 
Attention ! le programme a été 
écrit sur ATMOS et nécessite 
quelques aménagements pour 
l'ORIC-1, essentiellement lors de 
l'utilisation du STR$. 

Quand on convertit un nombre 
NB en chaîne de caractères, par 
STR$(NB), une bogue de la RAM 
ORIC-1 fait que, au lieu d’ajouter 
un blanc (code ASCII #20) 
devant le nombre, ORIC-1 lui 
ajoute le code 02 (correspondant 
à couleur encre verte... ), ce qui 
pose bien des problèmes lors du 
traitement qui suit. 

Dans ce programme, on utilise la 
fonction CHAR pour écrire sur 
l'écran HIRES. Or, CHAR ne mar¬ 
che qu'avec des codes ASCII 
compris entre 32 et 127 et vous 
rejettera avec ILLEGAL... quand 




il va trouver le 02 de la fonction 
STR$. Il faut impérativement éli¬ 
miner ce 02, et ce sera votre 
tâche pour modifier le pro¬ 
gramme en ORIC-1. 

Un exemple : 

TI$ = STR$(SC) deviendra 
Tl$ = RIGHT$(STR$(SC),LEN 
(STR$(SC)) - 1 ) 

Ce jeu consiste à chercher la 
position d'une des 28 villes de 
France, inclus dans ce pro¬ 
gramme. 

L'écran présente la carte de 
France et l'affichage du score, du 
meilleur score, du nombre de 
coups pour avoir une bonne 
réponse. 

Le score est établi par décrémen¬ 
tation des 6000 points du départ, 
par successions de 40 points à 
chaque coup. Le nombre de 
coups étant limité à 10, au-delà 
vous avez perdu et le score est 
décrémenté de 10 x 40 = 400 ; et 
le programme demande la posi¬ 


tion d'une nouvelle ville. 

Le jeu utilise les 4 flèches de 
direction pour déplacer le curseur 
sur l'écran ; la validation de la 
position est obtenue par la barre 
d'espace du clavier. 

La version proposée est avec le 
clavier, mais il est possibile d'uti¬ 
liser une poignée de jeu. Pour ce 
faire, après avoir initialisé l'inter¬ 
face de la poignée en 410, rem¬ 
placer les lignes 610, 615, 630 
et 640 par l'adressage correspon¬ 
dant à votre poignée. 

Exemple : 

(Interface adressée en # 3F0 (PIA 
6821) 

410P0KE # 3F1,0:POKE #3F0, 

0:POKE # 3F1,4 

610 A = PEEK( # 3F0):1F A = ... 

THEN 650 (code de bouton) 

615 IF A< >255 THEN 630 

620 GOTO 610 

630 X = X - (A = ... (codes de 

640 Y = Y-(A = ... la poignée) 
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NOMS DES 
VARIABLES 

A$(l) pur I = O à 28 

Pointeurs. 

Ligne 520 

Position de la ville avec marge 
d'erreurs. 

Lignes 530-540 
Affichage du nom de la ville. 
Ligne 600 
Lecture du clavier. 

Lignes 630-640 
Déplacement du curseur. 

Lignes 650-690 
Test de position et réponse. 
Lignes 700-800 
Affichage et fin de points. 

Ligne 1000 
FIN de partie. 

Ligne 2000 

Routine d'écriture HIRES. 

Lignes 10-20 
Données. 

Lignes 100-200 

Traçage de la carte sur écran. 

Ligne 200 

Traçage de la carte sur impri¬ 
mante ORIC 4 couleurs. 

Ligne 300 

Villes et coordonnées. 

Ligne 400 

Affichage HIRES des tableaux 
SC, MS, nombre de coups. 


Faire RUN ou GOTO 200 pour 
sortie sur IMPRIMANTE. 

Noms des villes en fichier. 

VILLE (VI) 

No des villes sorties (RND(l)x 
28.5) 

NP 

Indice des villes sorties. 

ST(NP) 

No des villes sorties. 

CT 

Total des no des villes (pour 28 
villes, CT = 406). 

MS 

Meilleur Score. 

ER 

Nombre de coups. 

XX,YY 

Position de la ville. 

X0,Y0 

Position de la ville - 3. 

XI,Y1 

Position de la ville + 3 (niveau de 
difficulté). 

X,Y 

Position du curseur en cours. 


DESCRIPTION 

Ligne 500 
Sortie de la ville. 

Lignes 505-510 
Vérification si déjà sortie. 

Ligne 515 


:0 DATA 107,25,113,27,105,27,100,37,87.40,87 
Si DATA76,40,72,35,75,35,75,32,70,34,62,32,6 

12 DATA 35,47,25,50,20,50,20,54,26,54,26,56, 

13 DATA 22,53,28,58,28,60,20,60,26,66 

14 DATA 30,66,30,64,34,64,40,72,48,76,48,80, 

15 DATA 72,123,62,115,64,134,60,136,60,150,5 

16 DATA 65,168,70,173,75,173,78,176,90,176,9 

17 DATA 123,184,123,172,129,165,132,165,127, 

18 DATA 145,166,154,166,156,168.162,168,162, 

19 DATA 178,164,192,151,192.148,182,148,178, 

20 DATA 175.118,PB.1 12,175.109,175,104.170 
2! DATA 195,83,186,64,192,56,192,50,185,43,1 
22 DATA 150,35,150,30,143,30,130,20,127,20,1 
22 DATA60,05,74,79,84,84,92,78,106,68,120,78. 

24 DATA133,102,142,124,132,134,138,138,0,0,9 

25 DATA106,42,109,54,112,54,115,50,117,58,12 

26 DATA147,155,153,138,148,112,154,112,158,1 

27 DATA72.128,87,143,95,146,99,157,88,165,0, 
100 HIRES :P0KE#26A,10:1NK5: X1=fl 0 : Y1=10 :G0SU 
105 X1=57 : Y1=é9:G0SUB180 

110 X1=84•Y1=46 :G0SUB180 

115 X1=150Y1=165.G03UB180 

120 X1=72 Yl=î24:GOSUBI80 

125 F0RÎ=41S60T047770STEP240 

130 FCR ;=2T020 : IFPEEK (!+;•)> 64THEN140 

135 NEXTJ,I -GCT0150 

140 P0KEI+J-1,5:P0KEI+1,6;CURSET13,(1-40960) 

145 F0RK=IT0I + J-3:CHAR46,0,1:CURM0V6,0,0;NEX 

15 G CURSET13,110,0 : T M="FRANCE“:S=1 :G0SUB200 

155 FOR1=45711T046191STEP40:P0KE1,20:P0KE!♦1 

160 1F FLAG=1THEN415 ELSE 400 

180 CUR5ETX1,Y1,0 

185 READX,Y :IFX=OTHENRETURN 

190 DX=X-X1:DY=Y-Y1 : DRAW DX,DY,1:X1=X:Y1=Y;G* 

179 '-IMPRIMANTE Graphique- 

200 RESTOREILPRINTCHRM18)M" 

210 Xl = 110:Yl=lO:LPRINT n M'\ , 2*Xl: V:-2tYl:G0 

215 Xl=57:Yl=89:LPRINT"M“;2tXl; " ,";-2l.Yl : G0SI 

220 X1=84:Y1=46:LPRINT“M“;24X1 ;",**• -2tYl G0S 1 

225 Xl=150:Yl=165:LPRINr-M*;2»Xl;‘,":-2*Yl:G) 

230 X1=72:Y1=124:LPRINT“M“;2*X1 ;“>2*Y1 :G0! 

235 LPRI NT’ 30 ’ : LPRI NT " M300, -380 " : LPRI NT ■ P J. Jl 

240 LPRINT'A":END 

280 READ X,Y:IFX=0THEN295 

285 DX=24(X-X1):DY=-(2*(Y-Y 1)>:LPRINT"JVDX; 

290 X1=X: Y1=Y:GOTO280 

295 RETURN 

299 LPRINT’SOMPRINT-M300, -380' :LPRINT’PJ. Jl 

300 DATA CALAIS,110,10,PARIS,113,53,BREST,22* 
305 DATA NANTES,60,85,BORDEAUX,72,128,LE HAN! 
310 DATA ANGERS,74,79,ORLEANS,106,68,BOURGES 
315 DATA LYON,148,112,TOULOUSE,99,157,MARSEIi 
320 DATA STRASBOURG,190,60,NANCY,166,54,REÏMI 
325 DATA MONTPELLIER, 130,165,DIJON, 152,82,CHI 
330 DATA NEVERS,124,90,St.ETIENNE,142,124,LU 
335 DATA ROUEN,95,41,AGEN,87,143 

350 IF FLAG=1THEN410 

399 '-INITIALISATION. 

400 DIM A4(28),XX(28),YY(2B),ST(30) 

405 F0RI=1T028 : READA» ( I ) : READXX( I ) :READYY( I ) 
415 X=100 :Y=100 :SC=6000:FLAG=0 
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425 FORI=40984T041344STEP40:POKEI-2,18;POKEI-1,4:NEXT 
430 FORI=41590T042310STEP40:POKEI-2,4:POKEI-1,19:IEXT 

435 FORI=43794T044514STEP40 : POKEi -2,4 : POKEI -1,17 IJËCT 

436 FORI M7750T048070STEP40 : POKEI, 0 : POKEI+1,23 : NEXT 
440 CURSET206,71,0 : T H="SCORE':S=I :GOSUB2000 

442 CURSET195, 170,0 : TM="Nbr " : S=1 :GOSUB2000 
445 CURSET 180,16,0:T!*=“H/SCORE":S=1:GOSUB 2000 
450 NP=1:A1(0)=" ■ :RI*="0" 

455 GOSUB860 

460 CURSET 200,25,0 : TI$=STR$(MS):S=1:GOSUB2000 
500 VILLE=INT(RND(11428.5) 

502 CLS:IFCT=406 OR SC<=OTHEN1000 

505 FOR!=1TONP 

506 IF ST(I)=VILLE THEN I=NP:GOTO500 
510 NEXTI 

515 NP=NP+1 : ST(NP1=VILLE :CT=CT+VILLE 
520 X0=XX(VI)-3:Xl=XX(VI)+3:Y0=yy(VI)-3:Yl=YY(VI1+3 
530 CURSET150,1,0 : TIi=A $(ST(HP-1)):S=0:GOSUB2000 
540 CURSET150,1,0:TI$=A$(VI):S=1 :GOSUB2000 

600 '-Lecture du Clavier- 

610 A=PEEK( #208 ) : IFA=I84 THEN650 
615 IFA <>#38THENGOSUB630 
620 GOTO 610 

630 X=X-(AMAClt(X>12)+<A=tBC)4(X<239) 

640 ï=Y-(A=*9C)*(Y>0 J♦(A=*B4)*(Y<199) 

645 CURSETXZ,Y2,0 :CURSETX,Y,1 :X2=X:Y2=Y:RETURN 
138 î FX>=X0ANDX<=X 1ANDY)=Y0ANDY<=Y1THEN700 
650 IFX> =X0ANDX<=X1ANDY>=YOANDY<=Y1THEN700 
655 CLS 

660 IFX<X0THENPRINT"+ a l'Est" 

665 IFX>XlTHENPRINT"+ a l'Ouest" 

670 îFY'YOTHENPRINT‘+ au Sud" 

675 IFY/Y1THENPRINT'+ au Nord" 

660 £R=EfiM:S=0:GOSUB2100 

682 3=1 R11 =STR4(ER 1•GOSUB2100 

635 IFER>1CTHENCS=SC;SC=SC-404ER:ER=0:GOT0800 

690 GOTO e!5 

700 CS=SC : PING : SC=SC-40*ER : CI FfCLE2,1 : ER=0 
705 LH="GAGNE" :S= ! ;GG3UB22G0 :fcniî3G0 
710 3=0 :GOSUB2200:GOSUB2100 
715 S=i :RU='0":G05ÜB2100 
720 GOSUB850'GOT0500 
600 CLS:SHOOT:S=I Llt='PERDU":GOSUB2200 
6 ! 0 WA•T400 5=0'GOSUB2200:GOSUB2100 
GQSÜB2100 :G0SUB850 



830 

835 


S=i RH="0 
«»« G0T050C 


650 CURSET200,80,0:11$=SÎR» (CS ! :S=0 GGSUB2000 
860 CURSET200,90,0 : TI 4=STRi ( SC ) :3=i:GOS'JB2000 
970 RETURN 

1000 1FKS 3C TKENKS=SG 
1005 NP=1'CT=0 ER=0 

1010 CL3 PRINT'une aut^e partie O/N" GETZt 

1015 !FZt=*G'THEN102CELSE1030 

1020 FORI=11028 STI I)=C.NEXT:FLAG=1 

1025 TEX?'RESTORE GOTOIOO 

1030 : FZ t N" THEN 1010 ELSE TEXÎ 3fl) 

iooo f;r ;=üolen (Tir. charasc < ki d» • t ; $, j , i ) >. o. s : curkov6 , o , o 

2100 CURSET220,170,0 

2110 FOR J=1TOLEN(RI»).GHARASGiHiDt < RI »,J,i1 \ 0,S :CURM0V6,0,0 
2200 CURSET 204,120,0 

2210 FORJ=!TQLEfi (LI l l : CH ASASO ( NID » i LI i, j, 1 ) i, 0, S : CURHGV6,0,0 


:NEXTJ: 
:NEXTJ. 


RETURN 

RETURN 

HtlüRN 
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P auvres lapins ! C’est triste 
pour eux car vous voilà chas¬ 
seur. Votre fusil obéit à la voix, 
c'est là toute l'originalité de ce 
programme, sans grande préten¬ 
tion par ailleurs. Vous pourrez 
retenir l'idée et l'appliquer à vos 
réalisations. 

Le but du jeu est de déclencher 
le tir, sur le lapin, quand ce der¬ 
nier est dans votre ligne de visée. 
Pas de joystick, ni de clavier. 
Votre magnétophone suffira, 
POURVU QU'IL SOIT MUNI D'UN 
CIRCUIT. DE MONITORING. Le 
bruit, capté par le microphone et 
reproduit (amplifié) sur la sortie 
EAR est lu par l'entrée cassette 
de l'ORIC. L'ORIC ne répondra 
qu'à un PSSS ou TSSS, à vous 
de trouver le bon bruit ! 

Le cœur du programme est la 
routine de lecture cassette. Une 
compatibilité ORIC-1/ATMOS est 
assurée par le programme, déve¬ 
loppé à l'origine sur ATMOS. 

Si vous désirez réutiliser ce prin¬ 
cipe dans vos jeux, sachez qu'un 
CALL # E630 (ORIC-1) ou E6C9 
(ATMOS) vous ramène un octet 
à l'adresse # 2F. Selon la fré¬ 
quence du signal reçu, la valeur 
du contenu de # 2F change. Ici, 
on détecte la valeur 255 corres¬ 
pondant au TSSS... 


0 REÎ! PASCAL CLOCHARD PF.ESeiTE... 

1 POKEài 3, ! 0 : r&RI=480001048039 : FOKEI, 32 : NEXT 

2 POKE4BO 30,3:POKE48001,96 

3 PAPES0 INK3:GLS 


'CHASSEUR' ORIC-ATMOS 


4 :F s EEK*I*FFE)O68THENABR=»E630ELSEADR=*E6C9 

5 ft$ = * Pascal Clochard 1985* 

o fOR: = :TO LEN A4)PCKE48002+I,ASC(HID4(At,1,1 !) 
7 NEXT 

6 FÛRI=465767046576+23:READA:POKE1,A'NEXT 

9 DATA62,58,63,12,13,62,13,51 

10 DA!A:2,DM5,21,49,31,4,14 

11 DAÏAC,0,0,63,0,0,0,0 
20 GOSUB1000 

31 GCSUB30C 

90 R=l5îL=10 

91 iNK6 


PLAY!,0,0,0 


96 SHOOT:UAIT50 

: 00 A= îNT : RNDU ) *35 ) *3 : B=INT lRND< 1)*231 +2 
110 PLOT A,3,*?* 

120 î =25 :SEPEAT 

121 IFCOITHENWAIT NI 
;22 CALL ADR 

123 IFPEEK(12F)=255TH£NGO=1 GOT0150 
130 PL0T2,I,*>":PL0T2,1+1,* * 

140 1=1-1 

144 S0UND1,1,5 

150 UNTILI=0ORGÜ=1 

152 IFG0=1THENG0=0 : GOTO170 

155 PL0T2,1,“ * 

160 GC’TO i 20 
170 X=3 REPEAT 
130 PLOTX,I+1,“à" 
i»0 X=X+1 

200 UNTILSCRN(A,B)=640RX> 38 
202 IFX> 38THENG0T0210 



210 CLS:PRINT"RATE.,.":WAIT20:CLS:R=R-1 

211 D0KE18,480171PRINTR;:CLS 
215 IFR=0THEN40OELSE95 

22C ZAP : ZAP ; PR INT "GAGNE..." ; «Ai T20 : CLS: L=L-1 
222 DOXEi9,4E032 :PRINTL.: .CLS 
225 IFL <> 0ÎKENGCT095ELSEGOT0500 

300 CLS : PR 1 NT : PR I HT u NI VEAU DE JEU'' :PRlNT:PRINT t l-DIFFIClLE" : PR 1 NT PR 1 NT “ 2 -MO I NS 
EPROUVANT" 

310 PR I NT î PR I NT •• 3-FACI LE* ; PR 1 NT : PR I NT : PR I NT i NPUÎ * VOTRE CHOIX ";C 

320 IFG<10RC)3THEN300 

330 i FC= 1 THEîiN 2 = 1 

340 IFC=2THENK:=2 

350 IFC=3THENN;=3 

360 CLS 

370 FC9i=4800iIC48033.POKEI,32 














i 



330 NEXT 

•9C DOKE1B,48005.PRINT‘CARTOUCHES : LAPINS : 

392 CA= 15:LA= 10:DOKE18,48017:FRINTCA' DOKE18,48028:PRINTLA; 

393 CLS:RETURN 

400 EXPLODE: FOR I = 1T050: PAPER1 PAPER2:PAPER4:NEXT 

410 CLS: PAPERO: PRI NT : PRIHT * AIE...VOUS N'AVEZ PLUS DE CARTOUCHES.':PR INT:PRINT 
420 PRINT"DOMMAGE IL NE VOUS RESTAIT PLUS QUE“;L:* LAPINS A TUER...":END 
500 ZAP;ZAP:ZAP 
510 SHOOT 

520 CLS:PRINT“BRAVO,VOUS ETES UN TRES BON CHASSEUR." 

530 PRINT.PRINT“VOUS AVEZ TUE TOUS LES LAPINS...■,PRINT:PRINT 
540 PRI NT“HA IS IL NE VOUS RESTAIT PLUS QUE “:R " CARTOUCHES ' 11 “PRiNT:PR INT 
550 PRINT PRINT: PRINT "PUISQUE VOUS ETES SI FORT,REJOUEZ DONC :PRINT:PRINT 
560 PRINT'VOTRE FEMME AURA DE QUOI CUISINER...* 

565 PLAY1,0,0,0 FORT=1T050STEP5 :FORY=ITO3G0S7EPT; SOUND !,Y+T,15 :NEXT.NEXT 
567 SOUND1,1,0 
570 END 

1003 REH EXPLICATIONS 
1010 CLS PAPERû:INK6 
1CÎC PRINTCHR* r 4 > 

1030 ^R INT SPC ( 10 ICHRt i 27 ) T+CHS» ! 27 ) * JCHASSEUR * : CHR$ ( 27 ) ’P" 

1040 FRINTCHR* f41 
1050 PRINT PRINT 

1060 PRINT' VOUS ETES UN CHASSEUR ET DEVEZ TUER*: PRINT 
1070 PRINT* 10 LAPINS AU TOTAL. POUR CE FA IRE, VOUS PRINT 
1080 PRINT"DISPOSEZ DE 15 CARTOUCHES.V PR INT 
1090 PRINT" POUR TIRER,VOUS DEVEZ FAIRE TSSS .*:PRINT 
1100 PRINT'SI VOUS RATEZ LE LAPIN,VOUS PERDEZ ':PRINT 
1110 PR INT* EVIDEMENT UNE CARTOUCHE "VPRINT 
1120 PRINT* LE MAGNETO DOIT ETRE OBLIGATOIREMENT*: PR INT 
1I3C PRINT’EN POSITION EREGISTREMENT” 

1140 PRINT PRINT’ LA PRISE ear DOIT ETRE MISE ET mcVPRINT 

1150 PRINT'DOIT ETRE ENLEVE (amst que 'a te'ecl" 

llbO PRINT FRINTCHR4C40?“PRESSEZ UNE TOUCHE POUR LA SUITE.* GETTI:CLS 

1170 PRINT* EN EFFET,DANS CE JEU LE CLAVIER NE*IPRINT 

1130 PRINT‘SERT A RIEN,C'EST LE MAGNETO QUI SE*.PRINT 

1190 PR INT* CHARGE DE DETECTER LES BRUITS ET": PR INT 

12£) PRINT'O AGIR EN CONSEQUENCE." PRINT 

1210 PRINT" SI VOUS PARLEZ-IL NE SE DECLENCHERA":PRINT 

1220 PRINT PAS,DONC VOUS POUVEZ JOUER MEME S'IL Y' PRINT 

1230 PRINT'A DU BRUITPRINT:PRINT 

1233 PRINT PRINT 

1240 PRINT* PREPAREZ-VOUS ET PRESSEZ space 
1250 REPEAI UNTILX£Y»=* ;RETURN 
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Marcel SPELLER 


V ous aimez programmer en 
assembleur, et les utilitaires 
que vous trouvez dans les revues 
ne sont pas toujours implantés là 
où il faudrait et interfèrent avec 
des logiciels que vous possédez 
déjà. La solution ? RELOG, un 
programme capable de reloger, à 
une adresse différente, vos rou¬ 
tines les plus chères. 

Ecrit pour ORIC-1, le programme 
pourra être transposé sur 
ATMOS grâce aux tableaux four¬ 
nis par l'auteur. 

Pour entrer ce programme, écrit 
entièrement en langage machine, 
vous utiliserez votre assembleur 
ou votre moniteur favori. Bien 
entendu, il est possible de procé¬ 
der à partir du Basic (FOR-NEXT 
et READ-DATA). 

Après l'avoir sauvegardé par : 
CSAVE "RELOG",A# 3000, 
E # 3393 

vous pourrez le lancer par CALL 
# 3000. 

Il est évident qu'une sauvegarde 
effectuée en AUTO démarrera 
d'elle-même. Par la suite, il sera 
possible d'entrer dans RELOG par 
appui sur !. 

V OPTION 
RELOGEMENT 

Elle permet le transfert d'un pro¬ 
gramme en langage machine 
implanté à partir d'une certaine 
adresse vers une autre adresse. 

30 


Les opérandes concernant les 
JMP, JSR, adressages absolus ou 
absolus indexés et situées dans 
la fourchette délimitée par 
BORNE INF. et BORNE SUP. sont 
modifiées et adaptées à la nou¬ 
velle adresse d'implantation. 

Si, à la lecture du programme 
d'origine, un code ne correspond 
pas à un mnémonique comme il 
se devrait, alors le programme 
s'arrête et "Syntax error" est 
affiché. 

2 e OPTION 
TRANSFERT 

Elle permet le transfert sans 
modification d'un bloc mémoire 
implanté à une certaine adresse 
vers une autre adresse. 

A utiliser pour le transfert des 
chaînes de caractères. 

VERS = adresse hexa de la pre¬ 
mière instruction réimplantée 
dans le programme destination. 
A la fin d'un relogement ou d'un 
transfert, le programme affiche 
l'adresse hexa à partir de laquelle 
il faut continuer le relogement ou 
le transfert du programme origine 
et l'adresse hexa à partir de 
laquelle il faut poursuivre l'im¬ 
plantation dans le programme 
destination. 

Puis retour dans le menu sans 
revenir au Basic. 

Pour sortir du programme, il suf¬ 
fit de taper une touche autre que 
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R et T (par exemple la barre d'es¬ 
pace). La commande ! réactive le 
programme. 

Si, au cours d'un relogement, la 
lecture d'un octet dans le pro¬ 
gramme origine ne correspond 
pas à une instruction du 6502 
comme il se devrait, alors le pro¬ 
gramme affiche ??? puis les 
adresses hexa précédemment 
définies. 

Dans le but d'afficher à l'écran le 
contenu exact d'une adresse (2 
chiffres hexa), deux routines dif¬ 
férentes apparaissent dans le pro¬ 
gramme, ceci pouvant intéresser 
les lecteurs de THEORIC ; l'une 
de # 304E à # 3077 et l'autre de 
# 3364 à la fin. 

NOUVELLES ROUTINES 
ROM UTILISEES 

ORIC-1 : CCOD 

ATMOS : CCD4 

Sortie d'un espace à l'écran. 


EXEMPLES 

Relogement du programme 
SCAT de l'adresse 9200 à 
l'adresse Al00 (exemple de 
THEORIC n° 7 avril 1985). 

D =début 
F = fin 
V = vers 
I = borne inf. 

S = borne sup. 
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1) OPTION R 

D =9200 
F = 931F 
V = A100 
I =9200 
S = 93CF 

?HEX$(DEEK( # 61 )) = A220 


5) OPTION R 

D =3277 
F = 32C7 
V = 824B 
I = 3000 
S =3321 

?HEX$(DEEK( # 61 )) = 829C 



H 

B 

DEBUT 

01 

02 

FIN 

03 

04 

VERS 

05 

06 

BORNE INF. 

07 

08 

BORNE SUP. 

09 

OA 


2) OPTION T 

D =9320 
F = 935F 
V = A220 

?HEX$(DEEK( # 61 ) + 1 ) = A260 


31 OPTION R 

D =9360 
F = 93CF 

V = A260 
I =9200 
S = 93CF 

Puis faire POKE # A1F3.162. 

Relogement du programme 
RELOG de l'adresse 3000 à 
l'adresse 7FD4. 

1) OPTION R 

D = 3000 
F = 300A 

V = 7FD4 
I = 3000 
S =3321 

?HEX$(DEEK( # 61 )) = 7FE1. 


2) OPTION T 

D = 300D 
F = 304D 
V = 7FE1 

?HEX$(DEEK( #611 + 11 = 8022 


3) OPTION R 

D = 304E 
F =31 DF 
V =8022 
I = 3000 
S =3321 

?HEX$(DEEK( # 61 )) = 81 B4 


4) OPTION T 

D = 31 EO 
F =3276 
V = 81 B4 

?HEX$(DEEK( #61) + 1) = 824B 


6) OPTION T 

D = 32C8 
F =3321 
V = 829C 


Les adresses concernant D, F, I 
et S sont connues d'après le lis¬ 
ting du programme origine. 

Les adresses concernant V sont 
déterminées par examen des 
mémoires 61 et 62. 

Puis remplacer 77 par 4B à 
l'adresse 7FD5 
32 par 82 à l'adresse 7FDA 
OD par El à l'adresse 807E 
30 par 7F à l'adresse 8080 
IA par EE à l'adresse 8089 
30 par 7F à l'adresse 808B 
27 par FD à l'adresse 8090 
30 par 7F à l'adresse 8092 
34 par 08 à l'adresse 8098 
30 par 80 à l'adresse 809A 
41 par 15 à l'adresse 809F 
30 par 80 à l'adresse 80A1 
C8 par 9C à l'adresse 824C 
32 par 82 à l'adresse 824E 

Un CALL # 7FD4 (ou G 7FD4 à 
partir d'un moniteur) active le 
programme RELOG ainsi relogé. 

REMARQUE : Dans le listing 
désassemblé, les notations sui¬ 
vantes ont été utilisées (5F) (A)... 
signifie contenu de l'adresse 5F, 
contenu de l'accumulateur. 

P.O. et P.D. sont programme 
d'origine et programme destina¬ 
tion. 

IMPLANTATION DES 
PARAMETRES EN MEMOIRE 
MEMOIRES UTILISEES 
PAR LE PROGRAMME 

H = octet fort d'une adresse 
B = octet faible d'une adresse. 

Seule la page 0 est utilisée. 


Routine signe d'une différence de 
deux valeurs hexadécimales 
occupant chacune deux octets. 


Ni -N2 



H 

B 

Ni 

72 

71 

N2 

74 

73 


AUTRES 

MEMOIRES UTILISEES 

5F : Octet faible de l'adresse 
d'un octet lu dans le pro¬ 
gramme origine. 

60 : Octet fort de l'adresse d'un 

octet lu dans le programme 
origine. 

61 : Octet faible de l'adresse 

d'implantation d'un octet 
dans le programme destina¬ 
tion. 

62 : Octet fort de l'adresse 

d'implantation d'un octet 
dans le programme destina¬ 
tion. 

00 : Utilisée pour routine affi¬ 
chage et sauvegarde de 
deux chiffres hexa. 

6F : Contient FF, 00 ou 01 sui¬ 
vant signe d'une diffé¬ 
rence. 

71 : Octet faible adresse lue 

dans le P.O. ou octet faible 
d'une adresse modifiée. 

72 : Octet fort adresse lue dans 

le P.O. ou octet fort d'une 
adresse modifiée. 

71 : 

72 : Utilisées par routine étude 

73 : du signe d'une différence. 

74 : 

75 : Sauvegarde du registre 

d'état. 

76 : Octet faible d'une diffé¬ 

rence. 

77 : Octet fort d'une différence. 

78 : Contient la valeur d'incré¬ 

mentation. 
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ADRESSES CONCERNEES 
DANS LE PROGRAMME 


Adresses 

ORIC-1 

ATMOS 

304F 

F8 

E8 

3050 

C5 

C5 

327F 

F8 

E8 

3280 

C5 

C5 

3079 

ED 

BO 

307A 

6B 

CC 

327C 

ED 

BO 

327D 

CB 

CC 

3074 

12 

D9 

3075 

CC 

CC 

307F 

9F 

FO 

3080 

CB 

CB 

3082 

9F 

FO 

3083 

CB 

CB 

30A7 

9F 

FO 

30A8 

CB 

CB 

3100 

E4 

70 

3101 

CF 

DO 

30A4 

OA 

CE 

30 A 5 

CC 

CC 


Ce tableau permet d'adapter très 
facilement le programme à l'AT- 
MOS. 

Seules les adresses soulignées 
sont à modifier par des POKE ou 
à l'aide d'un moniteur. 



32 


ORIC-1 

ATMOS 


C5F8 

C5E8 

INCHR recueille dans A caractère entré au 
clavier. 

CCI 2 

CCD9 

OUTDO affiche à l'écran le caractère en A. 

CBED 

CCBO 

STROUT affiche à l'écran la chaîne de carac¬ 
tères dont l'adresse est pointée par A (octet 
faible) et Y (octet fort). 

CB9F 

CBFO 

CRDO CR + saut de ligne. 

CFE4 

D070 

Affiche ? Syntax error + retour au Basic. 

CCOA 

CCCE 

CLS vide l'écran. 


100 FORN I I30DOTO#3393:READDt:D=VALî *t J +D»! :POREN,D:NEXT 
1000 REM DftTft PROGRAMME RELOG ORIC-1 

1D1C MTA A?.79,6D.F5,02.A?,32,33.Fe.02,40,79,32.44,45,42,55,54,20,20 
I02vi CAIA 23.2 ..20.30,20.00,46.49,4E,20,20.20,20.20,20,20,30,20,00,56 
1K«0 DAT* 45,52,53,20,20,22.20,20,20.30,20.00,42,4F,52,4E,45,20,49,4E 
• 04C DATA 46,2E-30,20,00.42,4F,52,4E,45,20,53,55,50,2E,30,20,00,20,FB 
1550 DATA 05,20,72,30,48,33,£9,3A : 93,04.60,E9,07,48,68,29,0F,60,20,4E 
1060 DATA 30,0A,OA,3A,0A>35,00,20,4E,30,18.65,00,60,48,20,12,CC,68,60 
107? DATA ZO.FD,C9,20,85,30.20,9F.08,20,9F,CB,60,20.80,30,20,8C,30,60 
1C?0 DATA AS,7C,SA,48,20,62,30.A8,68,AA-98,95,01,E8,86,70,60,20,A3,30 
15“? DATA 4:,C3,J?,20,OA.CC,20,9F,C4S,A9,00,AO,38,A2,00,86,70,20,78»30 
1100 DATA A9 1A,A(,30,20,78,30.A9,27,AC,30,20,78,30 60,A9,34,A0,30,20 
1110 DATA 78,20,A9,41,*0,30,20-79,30,20,CC,31,A5,02,85,5F,A5,01,85,60 
1120 DATA A5,06.85,61,«5,05,85,62,AO.OCBt,5F,A2,00.E8,E0,98.F0,10,DD 
1)30 DATA El,21,D0,F6.E0 .îE,3C,0A,E0.û 8,30,10,4C,l8,31,4C,2B,33,91,6! 
114C DATA A9 01,20,60,31,4C,71,31,91,61,Ci,Bl,5F,91,61,A9,02,4C.06,31 
1150 DATA Q 1,6»,CB,Bl,5F.85,71,C8,B1,5F,85,72,A5.08,85,73,A5,07,85,74 
1160 DATA 20,9A,31,C9,FF,F0,GF,A5,0A,85,73.A5,09,85,74,20,9A,31,C9,01 
1170 DATA CD, CE. AS, 72,91,61,86,A5,71,91,61,A9,03,4C,06,31,18,15,71,65 
1160 DATA 76,85,71,A5,72,65,77,85,72,4C,42,31,85,78,18,65,5F,85,5F,A9 
11^0 DATA CO,65,60,85,60,16,A5,"8,65,61,85,61-A9,00,65,62,85,62,60.A5 
1200 DATA 5F,85,7l,A5,60,85,72,A5,04,B5,73,A5,03,85,74,20,9A,31,A5,6F 
1210 DATA C9.01,DO,05,4C,40,33,4C,E4,30,38,A5,72,E5,74,FO,08,20,B8,31 
1220 DATA F0,17,4C,Ç2,31,33,A5,71,E5.73,F0,17,20,B8.31,F0,08,4C,C2,31 
1230 DATA 03,68 29,CS ,60,A7,FF,85,6F,60,A9,0i,4C.BF,31 ,A9,00,4C,BF,31 
1240 DATA 08,68,85,75,38,45,C6,E5,02,35,76,A5,05;E5,01,85,77,A5,75,48 
125C DATA 23,60.OA,00,18,D8,58,B8,CA,88,E8,C8,4A,EA,48,08,68,28,2A.6A 
1260 DATA 40,c0,3S,FÇ,78,AA,A8,BA 3A.9A,98,69,65,75,61,71,29,25,35,2! 
1270 DATA 3l,C6,1 c, ; 0,B?,F0.24,30,DO,1C,50,70 C?.C5,D5,D1 -DI,EO,E4,CO 
1280 DATA. D4,C6,D6,49,45,55,41,51 ,E6,F6,A9,A5,B5,A1 .Bl,A2,A6,B6,A0,A4 
1270 DATA B4, 46 56,09,05,15,01.11,26,36,66,76,E9,E5,F5,El,Fl,85,95,81 
1304 DATA 9! e6,96,84,94,6D,- ? D.79,2D,3D,3?,0E,lE,2C.CD,DD,D9 ) EC,CC,CE 
131? DAT .A EÎ.4D,52-59,EE,FE,4C 6C.20.ftD.BD,E«,AE.BE,AC,BC,4E,5E,0D,lD 
1320 DATA l e ,2E,3E,6E.7E ; ED.FC,F9,8D,9D,°9.8E,8C,A9,Dl,A0,32,20.ED,CB 
1320 DATA ?V.F£:C5:C9.52,CO,03,4C.9D,30,C9,54,FO,01,60,20,A3,30,A5,02 
:34v D*?A 65:5F.A5,0’,85.60.A5,06-85,61,A5,05,85,62,A0,00,Bl,5F,91,61 
\250 DATA *t,5F,&?..7!,A5 *0,85.72,85,04,85,73,A5,03,85,74,20,9A,31,A5 
1360 DATA. 6F,C9,00,F ft ,08,A9,01,20.60,31,4C,A4,32,A9,01,20,60,31,4C,40 
13-0 DATA. 33, OC,CA,OA,OA,09,C9,09,0 Ç ,09.09,C9,09,0 Q ,09,09,09,09,09,09 
1380 DATA 09,09,lB,4E,4D,45,4£,55,O.A,Oe,08,08,06,08,lB,4E,4D,45,4E,55 
1390 DATA 0A > 0A,OI,''OA.,OD,O9,“2,45,*C.4F,47,*5,4D,45,4E,54,20,2D,2D,2D 
1400 DATA 3E;26,52,OA.,CA,01,09,54.52,4- .4E,53,46,45,52,54,20,20,20,20 
1410 DATA 2D,3E,20,54,0A,0A,0p,09,09,3F,00,20,9F,CB,20, o F,CB.20,0D,CC 
1420 DATA A2,00,A9,3F,20,12 ,CC,Eâ ,E0,03 - DO ,F8,20, t>4,33, A5,60,20,70.33 
1*30 DATA A5,5r\20,70,33,20,64|33,A5,62,20,70,33,A5,61,20,70,33,A9,DI 
1442 DATA. :8,69,27,A3,2?,4CT7D,32.20,CD,CC.20,OD,CG,A9,23,20,12,CC,60 
1450 DATA 43,29,FO 4A,1A,4A,4A,20,31.23.58,2«,0F,20,81,33,60,48,38,E9 
1460 DATA. OA.,90,54.68,6 e .06,48,68.18, ^ ,30.2C, 12,CC.60,55 
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N ous avons publié plusieurs 
articles sur la manière de faire 
du bruit avec ORIC. Dans le n° 7, 
l'auteur laissait croire que les 
registres X et Y sont des paramè¬ 
tres qu'on peut faire varier de 0 
à 255 avant d'appeler les routi¬ 
nes sonores, ce qui est faux, et 
plusieurs lecteurs, Dominique 
MAÏAUX, Thierry THOMAS et 
Gilles CLAVEQUIN, nous l'ont 
fait remarquer. 

Gilles CLAVEQUIN nous propose 
d'exploiter les possibilités offer¬ 
tes par le paramétrage des 
contenus de X et Y, afin d'obte¬ 
nir des sons différents. 

BREF RAPPEL 

Les routines PING, EXPLODE, 
etc. utilisent un sous-programme 
en ROM pour charger X et Y avec 
différentes valeurs puis appellent 
un autre S/P commun (FA6C 
pour ORIC et FA86 pour 
ATMOS). 

Copier en RAM la première rou¬ 
tine puis l'exécuter en modifiant 
X ou Y pour rechercher des sons 
intéressants est plutôt ruineux en 
temps ; il y a mieux à faire. 

En fait, chaque routine de son 
préprogrammé charge dans X et 
Y l'adresse d'une table où figu¬ 
rent des valeurs qui seront 
ensuite utilisées pour charger les 
registres du Cl générateur de son 
(revoir l'article de Michel BART 
dans THEORIC n° 2). 

En résumé, voici à quoi corres¬ 
pondent les octets de la table. 


00 et 01 

Tonalité canal A (valeurs utilisa¬ 
bles 0 à 4095). 

02 et 03 

Tonalité canal B (valeurs utilisa¬ 
bles 0 à 4095). 

04 et 05 

Tonalité canal C (valeurs utilisa¬ 
bles 0 à 4095). 

06 

Tonalité générateur de bruit 
(valeurs 0 à 31). 

07 

Contrôle des canaux en service. 

Les bits 0, 1 et 2 contrôlent res¬ 
pectivement les canaux A, B et 
C ; les bits 3, 4 et 5 mixent le 
bruit blanc aux canaux A, B et C. 
Mais attention, il faut un niveau 
bas (donc 0) pour valider le ou les 
canaux choisis. En clair, la valeur 
décimale 63 (111111 en binaire) 


bloque les canaux, alors que 0 
(000000 en binaire) mixe le bruit 
aux 3 canaux (voir plus loin un 
tableau de quelques valeurs uti¬ 
lisables). 

08 

Volume canal A (valeurs utilisa¬ 
bles 0 à 16). 

09 

Volume canal B (valeurs utilisa¬ 
bles 0 à 16). 

OA 

Volume canal C (valeurs utilisa¬ 
bles 0 à 16). 

Les valeurs 0 à 1 5 produisent un 
son continu ; avec 1 6, la durée 
et la forme sont contrôlées par les 
octets suivants : 

OB et OC 

Durée du son (0 à 65535). 


QUELQUES VALEURS POUR L'OCTET 7 DE LA TABLE 


en n sT„c. 



son + hruit 

A 

62 

55 

54 

B 

61 

47 

45 

C 

59 

31 

27 

A et B 

60 

39 

36 

B et C 

57 

15 

9 

A et C 

58 

23 

18 

A, B et C 

56 

7 

0 
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OD 

Forme de l'enveloppe : 0 donne 
la forme suivante S— , d'au¬ 
tres valeurs sont utilisables (O à 
1 5). Une forme d'enveloppe est 
souvent produite par deux 
valeurs différentes. 

Pour laisser l'aspect théorique de 
côté (sans jeu de mots), voici 
deux exemples qui permettent de 
produire des sons un peu moins 
agressifs que PING ou ZAP. Le 
premier pourrait s'appeler PONG, 
et le deuxième PCHHHH ou 
PSSSS au choix. 

Toutes les valeurs <63 et non 
indiquées permettent un son pur 
sur un canal, du bruit blanc sur 


les deux autres ou deux sons 
purs plus un bruit blanc. 

abori Pour ÜHIL ou H1P1Ü& 
aPuNÛ Pour ufelL 


lHdbd-Hbd4 


Hbbb 

ni 

IC 

LUX 

••IL 

Hd0E 

Hu 

Mb 

LUY 

••mu 

Hbb4 

4C 

6C PH 

JMP 

êhht>L 


aPLHHH Pour 

UH U. 



JHdd?-Hbdb 

HbbP HE 

EH 

LUX 

••^M 

Hbbb Hb 

Hb 

LUY 

• •MU 

Hbbb 1 4L 

bL FH 

JMP 

•f* MbL 


4PCHHH Pour H(MOS 


IR0l3-HblS 


H013 1 

HE 

EH 

LUX 

••EH 

Hbl 7 ' 

Hb 

Hb 

LUY 

••Hb 

Hbib‘ 

4L 

bb PH 

JHF> 

•PHbb 


4Nota X nt chirw avec l ' octet baa 
«de la table. Y avec l'octet haut 


arable POMû '.ûfciC'MlMus> 


UHblL-HbEY 

HblC' EE dE db bd bd bb bb 3E. > 

nb24‘ 1b bb bb Db b? bb bb bb ...p.... 


arable PuHHH (.UHlLrRIMUS>.i 


aPClNù Pour HII10S 


IHbdE-HblE 


HbbE 

ftc 

IC 

LUX 

••IL 

Hblb 

HÛ 

Hb 

LUY 

• •PlU 

HblE 1 

4L 

bb PH 

JMP" 

•PHbb 


ClHdEH-HbJZ 

HdEH bb bb bb bb bb bd bl 37 . 7 

H03E 1 lb bb db D6 bb bb 3ÏI 33 ...v. .UU 



B Apprenez l'électronique sur ORIC/ATMOS : 59 F 

■ Communiquez avec votre ORIC ou ATMOS : 145 F 
Mieux programmer sur ORIC et ATMOS : 110 F 
j| Programmes pour votre ORIC : 50 F 

Naviguez avec ORIC-1 et ATMOS 45 F 

| Port 10 % : F 


Nom . 

Adresse . 

Règlement par chèque joint. 

Editions SORACOM 

Le Grand Logis — 10, Avenue du 
Général de Gaulle - 35170 BRUZ 


I 

I 

I 

I 


37 



















PENGO 



LE 

PINGOUIN 


P auvre petit pingouin ! Le 
laisserez-vous se démener 
tout seul ? Allez, un coup de 
baguette magique, et vous voilà 
transforme en Nestor... Votre 
but : réunir les trois trésors esqui¬ 
maux afin de sauver ce peuple. 
Pour ce faire, il faudra anéantir les 
horribles "Maloks". 

Le jeu est écrit en deux parties : 
Basic et langage machine. Il fonc¬ 
tionne sur ATMOS et ORIC-1. 
Pour rentrer le listing en langage 
machine, utilisez un moniteur ou 
la classique méthode des lignes 
de DATA, mais attention, ne 
vous trompez surtout pas ! 
Sauvegardez le langage machine 
par : • 

CSAVE "PENGOLM'',A # 600, 
E # 6927 

N'oubliez pas le programme 
Basic I 

Pour jouer, chargez d'abord le 
langage machine puis le pro¬ 
gramme Basic et couvrez-vous 
bien car il fait froid sur la ban¬ 
quise ! 



0 HINDI #5FFF 

1 RENxmmtmmmmmm» 

2 mm m 

3 REKm PENGC, LE PINGOUIN Ht 

4 REMtt* , U* 

5 REMIT* QUI VENAIT DU FROID, m 

é se nm m ' 

T REHttt CONG’J ET REALISE PAR Ht 

o rem*** m 

9 SENm ERIC ViEL Ht 

13 REN** Ht 

11 Rammmammmmtm 

12 REN 

12 hEN lE CODE MACHINE EST COMPRIS 

14 REK *5000 ET »c980 

15 REH 

20 GOSUB eCOOO PRESENTATION 
50 GOSUB 6C500 ' SCORES 
55 FOR 1=*400 TC *4FF STE? 2.DOKE 1,0:N 
EXT 

60 PCKE *4S0,DM POKE *5141 ,SP;P0K£ «477 
,NM:POKE *481,0 
100 CLS P0KE618,10 

105 FORIMBB83 T0 #BB30+39:POKEI.32 : NEX 

T 

11C PAPER4 TNK6 

520 PCKE 480*6,16:P0KE 46097,1.POKE 481 
POKE 43l3e.ls 

13C PCKE 45105,20'POKE 48107,àPOKE 481 
47,6:POKE 48146,20 

140 PRINT:PRINÎCHRI!4)‘ 'CHR*(27)“J’ 

150 PRINTOHR414! 

IsO At-'FEN'G0' 1 FOrtl =48099 10 48C«9*5 
170 A=ASC(HI!J*!Ai, 1-43098.1)/ FORE i-1, 
A.POKEI-39,A !,EXT 
180 PFINTPftlHT 


::>o PP un 


üîôr. ddô 


'■ T piC ' ’ ^ ■ 

; 

cc' c : : 

•>0 ? z .\\1 

£ 

ce - : ccc : ; 

25C PP INT' 

i 

r 

160 PPiNC- 

èC 

;c :c c: cc :zi 

271 FRINT" 

6 

3 

230 PPINC 

3 

CC C i 

290 PRINT* 

3 

cc c cc c c: a 

SOC PP INT' 1 

à 

CC c 3" 

310 PPINT* 

9 

CCCC C CC C 3" 

SIC PPINT* 

** 

C L Ô 

3S0 PPINT 5 

a 

C C CCCC C C 3" 

340 PPINT" 

a 

3" 

350 PEINT' 

350 PEINT : PSINT : 

dâââaàâàààadàdàâ" 

PEINT 


355 “OR 1=1 TO l 

170 A=INT(PN0;i r;4rl2I:B=INT(RND(MM 


•80 S2R=4804O+A+43TB 
390 IF PSEK(ECS;=99 ANC PEEK'EGR)<123 T 
-EN PCKE ECR .227*1' ELSE GOTO 370 
400 NEXT 

41C PCKE 48932,16:POKE48933,2 
420 A4="TEMPS ; 0000 -+GHRi(201:F0RI=1 
TOLENiA»! 

430 A=ASCIN2D*:A4,1,1)>.POKE 48933*1.A 
KEXÎ 

MC Hr=NP-l : IF NP=0 THEN Al <='DERNIEPE* 
A2»=* VIE" 

450 IF N?=l THEN A14=" VIE ":A24=* !" 
460 IF NPV1 THEN A14=" VIES*:M=NP:GOSUB 
20500:A2i=* "+N4 

470 PLOT 1,°,0 ,PLûT 2,9,A1<: PLOT10,9.6: 
FLOT 2,11,n?i 

480 H=SC GOSUB 20500: SCt=Mt 
4’C IF LEN 'SCS <5 THEN 3C4=*0*+SC4.C0T 
0 490 

5CC PL2T 1,17,0:PL0T2,17,“SCORE :*:PL0T 
10,17,6 

510 PICT 2,I9,SCt 

520 PLOT 29,13,0;PLOT 30,13,"NIVEAU" 

530 M=?EEK(*BFEC! :GOSUB 20500 :L$=M»:PL0 
T 33,15,14 
540 P0KEI4A2,NS 
7 20 PLAY i.0,0,0 

730 POKE*2E0-0 DOKE*2E1,1 DOKEI2E3.3 DO 
KE42E5,5:DOKE* 2E7,NS :CALL NUS 
740 POKE «4AC-1 P0KE#4AI,255:POKEt4h2.N 
S.DOKE*35,*7100 
750 PCKE «277 ; ôC:POKEIBFEl,5 
76C GALL*7250 

770 IF ?EEK.*BFEH<>5 THEN 820 

780 REPEAT.GETD4,D=ASC(D4): IF 0=33 THEN 

PRiNTGHRi;lllCHRt 11);END 

79C irD>7ANC*D'l2THEN 950 

795 IF D4=*V* THEN GOSUB «0C 

800 DS= :l'NT!L D4=* ’ 

:TC .F FEE/. *FrEi;=0.THEN 1000 ELSE 230 
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o N'î-'i-r - . i~ i5 îHcr ;f>c 

s 3 P9EE*4A2 NS N5*=5TSî NE 

i- =£?:•»??? : “hsk 'ISs=r:c-ht«-zt 

s» s? üü'î:?i 

c :- tr JZYNZJ =1 THEÎi %'£«=’C*• *S5« 

930 >:■ • f.25■ ’Sim SONORE -KSI 

>3î zcmeczi , i dcke#;e?,3:do 

:"* :F r 5 do<f* : e: . : hall sus 

- . ■ -’Er.RX 


'..rt ai 


'351 -p.ir 


-.t!l Oc.;* 


.0! ritR; ' r Vu.*. - wv'ii* i3A0 
: ;ov - l«. n *! -R ii; rR.N 7 rR :?>7 
■.SLÏi'Z •'Oi A- V E: SI PAiSSEZ '.'NE 

' : piiJST > v.v," 

13 -J. Oii -F’ P » 


jf^»4 

, 

- - r k 

• •. L 

t ; 2 

• jy 

« j\ 

, v i ' 


‘I: DATA 

. c r ; ^ • 


.0*? 

■ ÔV; 

.00 

02 

• wT f 

: I''::' 3Air 

» ' .• 

'■ ‘ 

■ 

r\ 

.90 

,02 

r-i 

1 V * 

nli/ DATA 

CO • Ci 

• 02 

■ 0 1 

: 02 

■97; 

,02. 

" c 

Jl' l .'Air. 


• C2 

,0« 

'O:, 

,07 

r. ~ 

.11 

D.-'fi 

cy f C . 

■ • 

: Ni * 

• C2‘ 

■ IA. 

ri 

• J >J < 

.ûi 

Tl'-i LAir. 
4Ci\I »?Hss 

02. C; 

.90 

•00 

• wÜ < 

.ce 

• 00 : 

,03 


! f >rXEO: ■ DC'KE#2E1. ! : D0KEI2E3 • 3 • DG 
KS«2E5..5 DOKE*2E7,NS:CALL KJ5 

KSS mi.: :PCKE#4A2,SS:rCKE»35,DEE 
K *4FG * 

c "i CALL#725E:SD70 7 7 C 

1C00 REM========================= 

1)10 REM=== VIE EN ÎÏC-ÏHS === 

1025 FLftV 1,G,0,C- 
10-0 F=4C;FOR C=2 TG 5 
1040 FOR ;*= 1 Tû 12 
1G5C rJS’G 1,C,N,NS:WA,IT P 
1060 --Pt0.72:IF ?<2 THEN P=2 
1070 NEXT N,01 PLAY C,0,0,9 
1950 GL5.PRINT : PRI NT : PRINT" J'AI LE REG 
REÎ DE VOUS ANNONCER VOTRE” 

1090 PRINT'MCRT.VUAIT !50 
1100 PRINTlFRINT” HAIS PEUT ETRE VOUS 
EN ETIEZ VOUS APERÇU ?” 

1119 IF NFOO THEN 1200 
1223 FfilHT:FRINT* 1 ET MALHEUREUSEMENT, 
VOUS K'AVEZ FLU3DE VIES." 

7i30 PR NI'PRINT" D OU, D'APRES LA TH 
EORiE RELnTl-' 

! 140 PRINI-ViSTE D'ALBERT EINSTEIN <E=«. 
C2) ,';PRIN7" VOUS ETES 1* 

1150 WAIT3G0:PRINT,PRIHT:PRINT:PBINT* 
MORT" 

1160 FOR 1 = 1 TO 5 : EXPLODE : VA 1Î3:NEXT 
1170 GOTO 1300 

1200 PRIHT,PRINT:PRINT" VOUS PERDEZ DON 
C UNE VIE" 

1210 PRINT.?RINT:PRINT:?RINT" PAR LA H 
EUE OCCASION, PRESSEZ UNE' 

1220 PRINT"TOUCHE POUR CONTINUER A JOUE 

R” 

1230 A»=KEY$:GET A».GOTO 100 
1310 REH=== MORT 
1325 «AIT 130 

1332. CLS PRINT;PRINT" TOUTES MES CONDEL 
EANCES." «AIT 100 
1335 AS=KEYI 

1340 IF SOHSiS) THEN 1400 
1145 ?RTNT:FRIM C RINT‘’ VOUS AURIEZ n 
U MOINS PU FAIRE UN" 

1350 PRINT’RECOGRD GUI VCUS AURAIT IMMC 


-. v ' - : N i r « ! NT pv INT .Al =rlt : i IKPUT 
• TFE NOM - Ni Hi=LEFÎi;NM5' 

1495 RT= r RE: 

*19 F3P T=i TO 5 
l420 IF SC H;;?* THEN 1440 
1439 NEXT GOTO 50 

1**1/ FOR 1=5 T SÎEF -1 :HS4-I»1 i =HS* > 

,• HS * 1 |= H;iI‘ NEXT 
14H0 HS*C)=N$ H5<Ti=5G GOTO 50 
2000 REM========================= 

2-510 REM=== GAGNE 

• a>,p nrt^_ __ ___ ____________ ________ 

; : 20 X0=?ES:*: ■; «BFSi >-43: NI =PEEK i #BF3û}- 4 
3 !H2=FESK:I3F2F -43:N3=FEEK(*3F2£>-4c 
2042 ?P='iü*KlÏ10+N2» 10G+N4 * 1000 
2050 ZAFZAF «AIT ICO'CLS 
2îc9 FRINI PRINT'FRI HT" BRAVO !" 

2070 PRINT PRINT’ VOUS *VEZ RASSEMBLE 
LES 3 IRE30P.S EN "TP" UNITES DE TEMPS" 
2)80 SC=3C+INM 520/TF) 

2?93 PRINT FRIT PRINT" CELA VOUS FAI 
7 ’JK BONUS DE 

2:09 PR'.NT INT(i500/TP)" POINTS ." 

2110 1F SC<230+150TQt THEN 2120 
2l!5 PRINT.PRINT" VOUS GAGNEZ UN FENGO 
’,NF=NP+1 ;Qk’=QV+l :GOÎO 21 IC 
2120 PRINT;PRINT" VOTRE SCORE :"SC 
2130 PS î XT: PRINT : PRINT’ PRESSEZ UNE TO 
UC HE" 

2140 fts=KEï» GEÎAI 
2:50 N?=NF-1 :j=PEEK!6BFE3) 

7 :cG r=D-riF J. t THEN D=t 
Si70 GOSUB fcO 7 OO+D*1û:PCKEfBFEO,D 
2ISO GOTO 5: 

2V?9 DCEE#B9,2-ûEEK(IE9):RETURN 
anTA 94:31.«2,03,02.05,02,0/ 

B02c DATA 09,00,02,07,00,30,02,07 
. DATA 90,00,02:07,02:97.02,05 
331c DATA ••Z..Os-32,06.02,09,02,08 
■SIC DATA 92,.1.02:09,02,08,02,06 
392? DATA 02,0?,02,06,03,91.02,09 
SI33 DATA C3,0:.C2,0o,03,0i,02,09 
303c Dr.ïA 1-3-92,02,10 02.10,02,11 
3040 DATn 90,(O,02,11,00,0D,02.il 
334: DATA v0,‘ 02,11 00.90,02,11 
S250 DATA OC,00-02-11,00,00,52,10 
305c DA'A 93 • 01 • *02 • 02,92,99,00,00 
;loC .'ATA Cî,v’ ,09,00.02 09,00-92 
:">9r DATA ‘12.9° -32.00,02,09.02,28 



•il;3 ROME **?:CG-i-S,T;POKE #7101+R,û:POKE 

s 7 102tR,N 

4C70 R=R»3 

-950 T=7+ü2.IF T>255 THEN T=T-25è 
41 OC NEXT:POKEt?IÛO+ft,î+10■P0KE#7101+R, 

. GCSUB 4999 
4110 PEAD D» 2=0 
4120 REPEnT. P=VAL(’«"-Dl) 

41 ; PDKE97300t2,F 

4140 2=Z*1.READ D» P=VAL("#“+D$) lUNTIL 
P=35 

“2e0 DGKE *B0,DEEK(#E9>+2 
4270 DATA #20,#00,*70,#4C,*D4,#68 
4260 FOR 1=16920 TO *6925 READ DlPOKEI 
,0 NEXT 

42-*0 DC'KEtèOAl ,*&920 
4400 RETURN 

4994 DCUEIBG, 2-t-DEEK i #E9 ) : RETURN 
5C03 DATA nD,A0,94,C9,00,D0,01,60 
5308 DATA EE.Al,04,AO,00,AD,Al,04 
5311 DATA DI,35,D0,F3,C8,B1,35,C9 
51.8 DATA 91,D0,0E,A9,00,A0,71,85 
5C2C DATA 35,6*,3o,A9,FF,8D,Al,04 
5928 DATA i0,C9,00,D0,20,A9,01,8D 
5050 DATA EO,C2,A9,07,8D,E3,02,A9 
5338 DATA 01,8D,E5,02,A9,00,8D,E2 
504? DATA 02,8D,E4,02,8D,E6,02,8D 
53*8 DATf* E8,02,40,80,70,B1,35,8D 
505C DATA E3.C2,C8,B1,35.8D.E5,02 
5058 DATA AD,A2,C4,6D,E7,02,fi9,00 
5060 DATA 8D,E2,02,3D,E4,02-8D,E6 
5C6Ê DATA 92,5D,E8,02,20,FE,FB,18 
5-07C DATA rt5,35,6=», 03,85 - 35, A5,36 
5?<6 DATA 69,CO,85,36,4C,08,70,EA 
50:, DATA 8P,E7.0:,4C,6C- 7 0,55 

lOOl) HEM CCMPATIEILITE === 

<3{'2t A=?EE;: *FFF9) 

133*0 IF A1-1 THEN KUS=#FBFE:RETURN 

20059 REM MODIF POUR ATMCS 

DOoC 1US=*FC13 

lvl-7(i DOXEI706D, M'JS : RETURN 

lit-v C REM ENLEVE ESPACE OU CODE VERT DU 

îjÏ 0 K4*R!GHÎl 5IR»Mi,LEK:STR*(M);-l) 
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RETURN 
58999 END 

f-’OCO r£M=== DATAS REDEFINIT:ONS «= 
59010 COKE «E0, DEEJ< > #E9. -2 ■ SETUPN 
59020 DATA T,5*,7,5#,7.56,’,56 
59C30 DATA 56,7,56,’,56,7.56.7 
59090 DATA 63.33,33 45,45,33,33-63 
59052 DATA 45-45,16 - : 2 -v 

5 9 0cQ DATA 12-;2.!c,lE,'3 :8,!2.:2 
5907C DATA 6,?.20,34.6. 59,62-0 
Ï9C80 DATA il-;' 44,12.30,50.3 

59390 DATA 12.44 30,13,12,30-1«-4B 
5?i00 DATA 6,29,42,62,3,28,18,51 
5 U 110 DATA 0,10-17,12-18,8,18.6 
59900 DATA 100 
59999 END 

.60000 .83!============"==========-= 

60010 50====== PRESENTATION ====== 

60020 RBI====== REDEFINITION ====== 

60030 REH========================== 

60035 F0RI=*B&90 TO#BB80+39:POKEI,32:NE 

xt 

60040 GL3 : PftPERO : IHK3 : PR I NT : PR 1 NT : PR INT 
PRINT” VEUILLEZ PATIENTER QUELQUES INST 
ANTS" 

60050 GOSUB 59010 

o0C60 READ D7A:ADR=46080+8I9? 

60C70 REPEAT 

60080 POKE ADR.DTA.ADft=ADR+l 
60C90 READ DTA UNTIL DTA=lOO 

60091 GQSUB 4ûOO'GOSUB 60092:GOT060095 

60092 DOKE6BO,2+DEEKi«E9! RETURN 

60093 DATAI20,00,460,«A5,#35,48D,*F0-#0 
4.#A5,#36,#8D,#F1 ,«04,#60 

600*54 DATA420, «31, #61, #A5, #35, «BD. #F0, » 
04,«A5,#3ô,#8D,#Fl,104,460 
60095 FOR 1=17250 ÎO #7250+2? : READD. POK 
El,D:NEXT 

60099 GOSUB 20000 COMPATIBILITE 

60100 CLS:2AP:ZAPiPAPERO;INK3;POKE 618, 

i r 

* V 

oû’03 INP’JT * NIVEAU SONORE U-15) \'NS 

60104 IF NS <1 OR NS>15 THEN 60100 
6C105 FORI=l TO 5:HS(I)=100:HS«<I)="... 
.. ERIC NEXT 
oClOo POKE *4A2,NS 

60109 

60110 Ci=CHRt(27; 

60120 PRINT:PRINTCHRt (4)Ci‘J“Ci''A 
PENGC"CHRi(4):PRINT 

6013C PRINT:PRINT" “Ci’DLE PINGOUIN QUI 
VENAIT DU FROID." 

60135 PRINT-PRINT 

oC140 FRI HT :PRINT“ UN PSOGRAHHE CONGU 
ET REALISE PAR ERIC VIEL." 

60150 PRINT:PRINT,PRINT:PRINT PRINT;PRI 
Nr:?RINT:PRINT 
60155 GOSUB 61000 


!" -1 W>" 

■5.1 '‘O TET Ai 2F Ai-' "O* AND N’ TKE 
■ a 2* î 7 2 

2- -,i= N" THEN RETURN 
60192 REM FOUR TAPER -ES INSTRUCTIONS, 
IL EST PREFERASSE CE NE PAS ECRIRE 
e0’3; REM L'INSTRUCTION PRINT EN TOUTE 
3 LL;TRES MA S CE LA REMPLACER PAR •' 

6' lcS C‘2-S. Ff'PEF 1 l'-lü- 
vC:-C CLS-PRINT* PENGO" 

•50200 PR IKT ' PRINT : PRINT 
■i* .r -R NT" VOUS ETES UN GENTIL FINGO 
PERDU DANS LA BANQUISE .* FRIN" 
f- 2 PRiNT" LA TEMPERATURE EST DE 40 
DEGRES CELSIUS EN DESSOUS DE ZERO." 
6)220 PRINT* AUSSI VOUS NE POUVEZ REST 
ES TROP LONGTEMPS DEHORS. " 

6UI30 PRINT PAINT" VOTRE MISSION . RE 
UNIR LES TROIS TRESORS ESQUIMAUX AFIN 
Le" 

•-.0240 PRINT" SAUVER LE *:PRINT"PEUPLE E 
S'OUÏ MAUX D’UNE DESTRUCTION 
60250 PRINT"CERTAINE." 

60260 PRINT PRINT" MAIS FAITES ATTENTI 
CN AUX HORRIBLES MALOKS QUI VEULENT VOUS 
TUE?. 1 

s;2?0 PRINT.PRINT PRINT" PRESSEZ UN 
E TOUCHE" 

e026C GEÎ Ai:GOSUB 60430 
6C290 PR IKT.PRINT:PR INT* POUR VOUS DE 

PLACER- UTILISEZ LES TOUCHES CURSEURS. 

60300 PRINT" Si VOUS TOUCHEZ LE MUR D 
ENCEINTE, UN COURANT ELECTRIQUE LE V 
60310 PRINT'TRAVERSE":PRINT“ET ELECTROC 
UTE LES MALOKS LE TOUCHANT" 

60320 ^RiNT PRINT' VOUS POUVEZ POUSSER 
LES GLAÇONS,MAISSI ILS NE PEUVENT SE DE 
PLACER" 

5) 330 PRiNT‘ILS FONDENT. VOUS ENLEVANT 
DU BONUS 

60335 PRINT PRINT* VOUS POUVEZ EGALEHE 
NT POUSSER LES TRESORS AFIN DE LES REU 
N1R." 

50340 PRINT:PS,NT" LA BARRE D’ESPACE 
GZNtftE UNE PAUSE.POUR REPRENDRE LE JEU,' 1 

6) 345 PRINT" PRESSEZ UNE" PRINT TOUCHE 
1 LECHEE." 

‘0346 PRINT’ PENDANT LA PAUSE, VOUS PO 
JVEZ MODIFIER LE NIVEAU SONORE EN" 

6Û347 PRINT" PRESSANT ’V\" 

OÛ350 PRINT : PRINT : PRINT' PRESSEZ UNE 

TOUCHE".GETAi G03UB50490 

60273 PRINT’ “C*“A PENGO" 

50230 PRINT:PRINT:PRINT.PRINT" aaa 
—> -E MUR D'ENCEINTE' 


rC,- 3 PRI 17 P R TT FRI NT" •::: 

-■ LE: v..Ai ’H: ' 

604,’C p PiNI P'3;N;.PRINT" i i 
V».OK5 ' 

; ^INT'PRINT PRiNT e f -3 - 

•- ..ES TRESORS" 

: R î NT : FR i NT. PRINT 6 

VOUS 'PENGOl' 

60430 -RINT PRINT PRINT PRINT" "Ci"D 
PRESSEZ UNE TOUCHE* 

60450 QET Ri 
60470 GOTO 50480 

60480 A=103:S=1:FORI=#BB80 TO «BF 5 0 STE 
P 4):POKEI-40,0'POKEI,A+S:POKEI+1,0 
cûHHô POKE 1+29,A,FOKZ I+36,7:POKE 1-1, 
0 :A=A+£ S=-S : ïA 1 14.NEXT 
60495 CLS: PAPER 1 INK3‘RETURN 
50500 Ci-S : PRINT : PAPERO : INE4 
62510 PRINTCHRi(4’-Ci’J'Ci’E LES NEILLEU 
RS SCORES DE PENGO" 

50520 PRINTCHRÜ4) 

60530 PRINT PRINT 

60540 FOR 2=1 TO 5:PRINT" Ne "I".. *HS( 
2: "HS# ( I ) : PRI NT : NEXT 

6)553 PRINT PR2NT.PRINT* ‘Ci 1 CENTREZ VO 
TRE NIVEAU DE FORCE (1-6)“ 

60555 FRIN?:?RINT" "Ci'CPRESSEZ 7 POUR 
nRRETER" 

50592 RM4=’TOUS MES REMERCIEMENTS A J.G 
l'ITTCN POUR LA MUSIQUE, Y.BOURREE * 

60593 RMi=RKt+" POUR LES GRAPHISMES ET 
A TOUS CEUX QUI M’ONT AIDE. * 

60594 RM4=RMi+* REMERCIEMENTS SPECIAUX 
A MICHAEu JACKSON, * 

6(595 RMi=RNi**STARSKY i HUTCH , ALAIN 
DECAUX- LEO FERRE, " 

605=56 RHi=RMi+’SANS OUBLIER HA TANTE » 

mmxmmtmt * 

60599 PRINT ;PRINT :PRINTCHR#(4) 

60600 L=LEN<RMi>:REPEAT 

6)c10 RMi=RiGHTi■RMi,L-1)+LEFTi<RHi,1) 
60615 PLOT2,23 ; 3 :PL0T3,23,17:PL0T4,23,1 
0 :PLOT2,24,3:PL3T3,24,17 
60620 PLOT4,24,10:PLOT 5,23,HIDi(RMi,l, 
3<)'PLOT 5,24-MIDi(RMi,I,34) 

60630 Di=KEYi;D=VAL(Di) 

60635 1F D>0 A'ID D<8 THEN PULL :GOTO 60 
o50 

6063? Di=” 
c0e40 UNTIL Di<>"“ 

60650 PRINTCHRi( 4 •: POKE4BFEO.D:NP=3 :SC= 
0:98=0 GOTO DI 10+60700 
60713 3P=40:DM=1,NM=0 RETURN 
60720 SP=40 DN=0;NN=0: RETURN 
62730 SP=20 DM=0'NM=0 RETURN 
û0?40 S?=4CDM=1 NM=1 RETURN 
63750 SF=40 DM=0 NN=1 RETURN 
6)7o2 S?=2C DM=0:NM=1- RETURN 
t)770 CLS rAPERO INK? :°OKE619.3:£ND 
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61000 R£Î1========= MUSIQUE IKTRO ====== 


o'.OC' I? NS=0 THEN NS=2 
ülOC-7 IF KS=:5THEN NS=15 


zlClO Zi="33084040120505203082030610305 
1030620303203054031020505203052'?03i * 


i.v A 0 -1*2» *' “030!1021220303203012030320 
305202102030840305203032C3C3203082'' 

5:03: Zt*2*«*03l22 ; -312îC401103124" 
ri04; f:.rz=î::ien :*)step5 
«• I 0 OsViL: 7! 1 H' Zî. 2 • 2 ! 1 
61 r -• - X - m î! ; St : Zi. 2*2.2 n : «=VAL■ MI D* i 


Os.2+Vu * 

t.m IFO=QTHENGOT061090 
■si 030 PZrtï 7 ,0 ; 0,0:HUSICl .0,N.NS:HUSIC2, 
ü*l, n.M 5-1 KUSIC3,0-2,N.N5+i 
r ; .040 Wn T«l* 1 5. PLiYG,0,0,0 : WITW*3. NEXT 
62000 REÎJRN 


0 REM 

1 REM LANGAGE MACHINE PENGO 

2 REM 

3 REM RUN POUR IMPLANTER 

S REH 

5 REM TSAVE DE «6000 A «6927 

6 REM 

7 REM 

10 FORNM6000TOI6927 

20 READD»:D=Vfti.(•** »D* ! :POKEN,D NEXT END 

10010 DATA A2,00,BD,10,60,9D,80,BB,E8,EO,12,DO,F5.4G,25.60.50,52.45.53 
10020 DATA 53,45.5A,20.55,4E,45,20,54,4F,55,43.48.45,55,55,EA,A9,38,9D 
10030 DATA O0,O2,AD,O8,O2,C9,38,FO,F9,A2,CO.A9.2C.9D,BO.B8,E8,EO.!2.DO 
10040 DATA F8,A9,5F,A0,BE,85,0O,8401,95,02.34,03.A9.F7,A9,BC,35,04.84 
10050 DATA 05,A9,C9,A0,BD,85,06,84.07,62,0069.67,81,09,A9.69.61.04,81 
10060 DATA 06,A9,03,BD,00,04,8D,06.04,A4,0C,3D.01,04.8D,07,04,A°.03.8D 
10070 DATA 02,04,8D.03,04,8D.08,04,8D.09,04,A9.0D,8D,04,04,BD,OA.04.A9 
10080 DATA 07,80,05,04,BD,0B.04,EA,EA,EA.EA,EA,EA.EA,EA,EA.EA.£A,EA.EA 
10090 DATA 4C,20,69,C9,AC,D0.03,4C,45,62,C9,B4,DO,03,4C,15,62,C9,9C,DO 
10100 DATA 03,4C,30,6I,C9,BC,DO,03,4C,00,62,C9,64,DO,6E,60,55,55.55,55 
IC!10 DATA 55,55,55,55,55,EA,EA,EA,A2,00,A:,02,C9,20,D0,03,4C,00,61,C9 
10120 DATA 69,D0,06,A9,00,8D,E1 ,BF,60,C9,61,DO,03.4C,60,62X9,63,DO,03 
10130 DATA 4C,50,63,40.00,65,55,55,55,55,55,55,55,55,55,55,62,00,Al,00 
10140 DATA 8D,16,04,A9,20,81,00,AD,06,04,8D,00,04,AD,07,04,8C,01,04,A5 
10150 DATA 02,85,00,A5.03,85,01,AD,16,04,09.67.DO,05.A4,63,4C.2D,61.A9 
10160 DATA 67,«2,00,81-00,A4,38,80,08,02,A2,00,AO,00,C8.CO.00,DO.FB.E8 
10170 DATA EO, 28, DO. F4,4C. GO. 69. A5,04. dD, 30.04. A5 r 05, S J, 3 i, 04, Mu, 02.04 
10180 DATA BD.32,04,AD,03,04.3D,33,04.A4.00,3D,39,04,20,00 ,d'.AD. 30.04 
10190 DATA 85,04,AD.31,04,35.05,AD,32,04,80,02,04,AD,33,04.80,03,04X3 
10200 DATA 77,DO,03,4C,DF,60,AD,77,04.09,01,FO,03,4C,AO,60,40,40,66,55 
10210 DATA 55.55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55.55,55,55 
10220 DATA 55,55,55,55,55,55,55,55,55,55.55.55,38,A5,02,E9,01.85,02,60 
10230 DATA 55.55,55,55,55,55.55,55.18,«5,02.69,01.85,02,60,55,55,55-,55 
10240 DATA 55,55,55,55,A2,00,A9,20,81,04,A9,69,SD,F7,BC,A9,F7,A0,BC,60 
10250 DATA A2,00,A«,20,81,06,A4,69,8D.C9.BD,A4,09.AO,BD,60,55,55,55,55 
10260 DATA 55,55,55,55,55,55,55,55,55,55,55,55,18,EE,06,04,20,CO,61,«5 
10270 DATA 03,69,80,85,03,A4,01,60.12,04,4C,DO,60.18.EE,07,04,18,«5,02 
10280 DATA 69,28,85,02,«5,83,69,00,85,03,«9,02,80,12,04,4C,DO,60,EA.EA 
10290 DATA 38.CE,07,04,38,A5,02,E9,2B 85,02,,45,03,E9,00,85,03,4C.5A,62 
10300 DATA E«,38,CE.06,04,20,Bû,61,A5,03,E9,00,85.03,A4.33,80,12,04,40 
10310 DATA DO,60,A9,00,4C,54,62,EA,4C,B0,62,AD,OC,04.A2,90,9D,D4 3E.9D 
10320 DATA 7C,BC.E8,E0,10,D0,F5,A2,7C,A0,BC,86,G8,84,09,A2,00.AD,0C.04 
1.0330 DATA AO,00,9!,08,AO,OF,9i ,08,48,18,A5,08,69,28,85,08,A5,09.69,00 
10340 DATA B5,O9,68,EB,EO,1O.DO,E4,A2,OO,AO,OO,EA,EA,EA,C8.CO,AO.DO,F0 
10350 DATA E8,EO,02,DO,F1,60,EA,EA,A2,00,8A,48,A9,62,8D,OC,04,20,63,62 
10360 DATA A4,61,8D,0C,04,20,63.62.68,AA,E8,EO,20,D0,E7,AD,02,04,C9,01 
10370 DATA FO,2E,C9,0E,FO,2A,AD,03,04,09,0!,F0,23.C9.0E,F0,lr,AD,04,04 
10380 DATA 09,01 ,F0,31,C9.0E,FO,2D,AD,05,04,09,0»,F0326,09,C-E,F0.22-40 
10390 DATA 31,63,55,55,55,55,55.EA,A4,03,80,02,04.30,03.04.8D,08,04,8D 
10400 DATA 09,04,20,DO,61,EA,85,04,84,95,40,31,63,A«.00,80.04.04,80,3A 
10410 DATA O4,A9,O8,8D,05,O4,3D,0B.O4,2O,EO.al,EA.S5,Oa,b4,O7,AD,ÛO,04 
10420 DATA 6D,06,04,AD,01,04,8D,07,04,A5,00,85.02,A5,01,85,03.40.00,al 
10430 DATA EA,EA,EA,EA,EA,EA,EA.EA,A5,02,85,O8,85.0A.A5,03,85,04,85,0B 
10440 DATA AD,12,04,C9,01,DO,06,BD,13,04,40,90,63,C9,02,DO,08,A4.28.3D 
10450 DATA 13,04,40,90,63,0’,03,DO,08,A4.01,80,13.04,40,30,64,A4,28,8D 
10460 DATA 13,04,4C,30,64,55,55,55,55,55,53,55,18,A5,98.eD,13,04,85,08 
10470 DATA A5,09,6°,00,85,09.A2,00,Al.0B,C9,20,F0,3A,A9,6A,81,0A,A2,00 
10430 DATA AÛ,OO,£A,EA,EA,C8,CO,OO,D3,FB,Ea,E0,2O,DO,Fl,A9,20,A2.00.81 
10490 DATA OA,AC,00,04,BD,06,04,AD,01,04,60,0’,04,A5,00,85,02.A5,Cl,65 
10500 DATA 03,A9,01,80,17,04.40,00,61,EA,EA.EA,A9,20,A2,00.81,OA,A5,08 
10510 DATA 85,OA,A5,09,85,CB,18,A5.08,60,13,04,65,Û8.A5.09,69,00,85,09 
10520 DATA Al,08 ; C9,20,FO,C7.A4,63.81,0A,4C.C!,63,62,00,69.63.81,08,A9 
10530 DATA 10,81,0A,A0.00,EA,EA,EA,C6,C0,C0,D0,F8,E3.E;.03.D0.F1,4C.EC 
10540 DATA 63,EA,EA.EA,EA.EA,EA.EA.EA.EA,EA.EA,38,65,08,ED.13,04.85,0e 


10550 DATA A5 0®,=9,TC,85,09,62,CO,Al.O c,C9,20.F0,3A,A9,6A,81,OA,A2,00 
10560 Data AO.OC,E4,EA.EA,C8,CO,00,DO,F8,E8,E0,20,DO,Fl,69,20,62,00,81 
05'0 DATA OA A3.00,04,8D.06,04,AD.Ol,04,BD,07,04,65,00,85,02,65,01,85 
10580 DATA 03.A 1 *,01,BD. 17,04,40,00,61,EA,EA.EA,A4,20,A2,00,81,OA,A5,08 
:?5’0 DATA 85,OA,65,09,85,OB,38,A5,08,ED,13,04,85,08,65,09,E9,00,85,09 
lOéCC DATA Al.08,C9,20,FO,07,A4,63,81,OA,4C,Cl,63,A2,00,A4,63,81,08,A9 
10:13 DATA 2C.B1,OA,AC,00,EA,EA,EA,CB,CC,00,D0,F8,E8,E0,10.D0.F1,4C,80 
lOilO DATA 64.55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
10630 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
10640 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55.EA 
10650 DATA A?,00,BD,!B,04,8D,19,04,AD,12,04,C9,00,DO,08,A4,28,83,19,04 
13660 DAT.» 4C,32,65,C9,01,D0,û6,9D,!B,04,4C,32,65,C9,02,00,08,A9,28,8D 
10670 DATA !8,04,4C,32,65,A9,01,3D,19,04,A2,00,A1,02,80,1A.04.4C,40,65 
10603 DATA 55,55,55,55,A5,02,85,08,85,OA,A5,03,85,09,85,OB,18,A5,08,6D 
106*0 DATA 18,04,85,08,A5,09,69,00,85,09,3B,65,08,ED,19,04,85,08,65,09 
10703 DATA E9,00,85,09,62,00,Al,08,09,20,FO,03,4C,31,63,62,00,A9,20,81 
10710 DATA OA,65,08,85,OA,A5,09,85,OB,18,A5,08,6D,18,04,85,08,65,09,69 
10720 DATA 00,85,09,39.65,08,ED, 19,04,85,08,A5,09,E9,00,85,09,62,00,Al 
10730 DATA 06,09,20,D0,17,AD,1A,04,81,0A,AO,O0,EA,EA,£A,C8,CO,0O,DO,F8 
13743 DATA E8,EO,05,DO,Fl,40,73,65,AD,IA,04,A2,00,AO,00,81,OA,65,OA,85 
10750 DATA 08,A5,0B,85,09,18,A5,08,69,01,85.08,65,09,69,00,85,09,62,00 
10760 DATA 8E,IB,04,Al,OB,C9,E0,90,OF.EE,IB,04,A5,08,99,20,04,AS,09,99 
10770 DATA 21,04,08,08,AD,OA,85,08,A5,0B,85,09,EA,18,A5,08,69,28,85,08 
10780 DATA A5,09,69,00,85,09,62,00,EA,EA.EA,Al,08,09,EO,90,0F,EE,IB,04 
10790 DATA AD,08,99,20,04,A5,09,99,21,04,C8,C8,A5,OA,85,08,65,06,85,09 
10300 DATA 38,A5,08,E9,01,85,08,A5,09,E9,00,85,09,A2,00,EA.EA.EA,Al,08 
10810 DAT* 09,EO,90,OF,EE,IB,04,A5,08,99,20,04,65,09,99,21,04,08,08,65 
10820 DATA 0A,85,0S,A5,0B,85,09,3B,A5,08,E9,28,85,O8,A5,09,E9,0O,85,O9 
10930 DATA A2.00,EA,EA.EA,Al,08,C9,E0.90,OF.EE,18,04,65,08,99,20,04,65 
10843 DATA 09,99,21,04,08,C8,CO,04,DO,06,69,01,8D,El,BF,60,CO,02,DO,IB 
10e50 DATA AD,25,04,09,00,DO,16,EE,25,04,AD,20,04,85,08,85,OA,AD,21,04 
10860 DATA 85,09,85,OB,AO,00,4C,CD,65,A9,00,BD,25,04,4C,31,63,55,55,55 
10670 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
108BO DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
10990 DATA 55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
109C0 DATA 55,55/55,55,55,55,55,55,55,55,55,EA,AD,30,04,80,34,04,AD,31 
109-0 DATA 04,BD,35,04,AD,32,04,80,36,04,AD,33,04,8D,37,04,EA,EA.EA,AD 
10920 DATA 32,04,CO,00,04,FO,33,90,06,CE.32,04,4C,42,67,EE,32,04,18,AD 
10430 DATA 30,04,69,01,8D,30,04,AD,31,04,69,00,8D,31,04,40,80,67,38,AD 
10940 DATA 30,04 ,E9,01,8D,30,04,AD,3i,04,E9,00,BD,31,04,4C,80,67,AD,33 
10950 DATA 94,CD,0!,04,DO,03,4C,92,67,90,OD,CE,33,04,38,AD,30,04,E9,28 
10960 DATA 4C,48,67,EA,EE,33,04,18,AD,30,04,69,28,4C,34,67,EA,EA,EA,EA 
10970 DATA AD.00,AD.30,04,85,08,AD,31,04,85,09,4C,00,68,20,FO,IB,AD,34 
10960 DATA 04,8D,30,04,AD,35,04,8D,31,04,AD,36,04,80,32,04,AD,37,04,80 
10990 DATA 33,04,AO,11,60,AD,34,04,85,08,AD,35,04,85,09,A2,00,A9,20,81 
110C0 DATA 08,AD,30,04,85,08,AD,31,04,85,09,69,69,81,08,AD,30,04,BD,34 
11010 DATA 04,AD,31,04,8D,35,04,AD,32,04,80,36,04,AD,33,04,8D,37,04,AO 
11020 DATA 11,60,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55,55 
11030 DATA 55,55,55,55,55,55,55,55,62,00,Al,08,C9,67,DO,03,AO,77,60,C9 
11040 DATA 68,F0,F9,C9,20,F0,9A,AD,39,04,C9,01,DO,O3,4C,92,67,A9,01,8D 
11050 DATA 3*. 04,AD,34,04,8D,30,04,AD,35,04,8D,31,04,AD,36,04,80,32,04 
11060 DATA AD,37,04,8D,33,04,4C,56,67,55,55,55,65,06,8D,30,04,65,07,BD 
11070 TATA 31, 04,AD,04,04,8D,32,04,AD,05,04,8D,33,04,A9,00,80,39,04,20 
11080 DATA 00,67,AD,30,04,85,06,AD.31,04,85,07,AD,32,04,BD,04,04,AD,33 
11090 DATA 04,8D,05,04,CO,77,DO,03,4C,DF,60,4C,AO,60,55,55,AD,77,02,BD 
11100 DATA 79,04,C9,00,DO,03,AO,77,60,CD,78,04,00,01,60,8D,78,04,60,31 
11110 DATA BF,C9,39,F0,06,EE,31,BF,60,EA,EA,A9,30,8D,31,BF,AD,30,BF,C9 
11120 DATA 39,FO,O4,EE,3O,3F,6O,A9,3O,0D.3O,BF,AD,2F,BF,C9,39,FO,O4,EE 
11130 DATA 2F,BF,60,EE,2E,BF,60,55,55,55,55,55,55,55,55,55,EA.EA,EA.EA 
11140 DATA AO,00,20,80,68,CO,77,DO,06,A9,00,80,El,BF,60,AD,17,04,09,01 
11150 TATA FO,Cfc,AD,06,02,4C,A3,60,A9,00,8D,17,04,20,96,68,AD,08,02,4C 
11160 DATA A3,60,55,55,AD,80,04,C9,01,FO,03,4C,47,61,EE,81,04,AD,81,04 
11170 TATA 6A,90,03,40,47,61,40,AO,60,55,55,55,55,55,55.55.20,00.70.4C 
U ISO DATA D4,63.55,55 
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-utilitaire 



U n éditeur de textes qui va 
vous permettre de traiter, par 
ordinateur, le courrier de vos 
affaires courantes. Ecrit entière¬ 
ment en langage machine, il 
demande un peu d'application 
pour la saisie et d'entraînement 
pour s'en servir. 

Le programme proposé permet 
d'imprimer un ou plusieurs textes 
écrits sur l'ORIC en 255 exem¬ 
plaires au maximum. Etant donné 
que l'ORIC ne possède aucune 
voyelle accentuée, certaines tou¬ 
ches ont été redéfinies afin de 
pouvoir imprimer le à, è, â, é, ù, 
û. De plus, afin d'améliorer le trai¬ 
tement de texte, l'appui sur 
[CTRL) et [B] repousse d'un cran 
les lettres à droite du curseur afin 
d'insérer une lettre. L'appui sur 
[CTRL) et [El, au contraire, per¬ 
met de supprimer un caractère 
dans un texte. Ceci est intéres¬ 
sant pour corriger des fautes 
d'orthographe, adresser un cour¬ 
rier où juste quelques mots, noms 
ou termes changent d'une lettre 
à l'autre, etc. Etant donné qu'on 
ne peut écrire sur une ligne 
d'écran que 38 caractères, il faut 
donc 2 lignes d'écran pour impri¬ 
mer une ligne de 80 caractères. 
De plus, une page contient 66 
lignes, donc il faut écrire sur 5 
pages écran (13 lignes/écran) et 
rajouter une ligne vide en écrivant 
le caractère dièse sur l'une des 5 
pages écran. On peut écrire sur 
32 pages-écran (à. A, B, ... Y, Z, 


[, è, ), à, é), donc imprimer plus 
de 6 pages (pages-papier). Il est 
bien évident que l'on peut impri¬ 
mer beaucoup plus de textes 
grâce à la touche dièse, s'ils sont 
moins longs. L'éditeur de textes 
vous permet aussi de sauvegar¬ 
der sur cassettes ou disquettes 
les textes écrits afin de pouvoir 
s'en servir ultérieurement à l'aide 
d'un CLOAD". Ainsi, il faudra 
revenir en Basic en pressant la 
touche "I" et écrire : 
CSAVE''TEXTES",A# 100,E#-— 
L'adresse à mettre à la place des 
quatre traits dépend ae la der¬ 
nière page-écran écrite suivant 
l'ordre alphabétique. Voici la 
liste : 


1AAO 
1 F00 
2400 
2900 
2E00 
3300 
3800 
3D00 
4200 
4700 
4C00 
5)00 
5600 
5B00 
6000 
6500 
6A00 
6F00 
7400 
7900 


page à (initiale) 
page A 
page B 
page C 
page D 
page E 
page F 
page G 
page H 
page I 
page J 
page K 
page L 
page M 
page N 
page O 
page P 
page Q 
page R 
page S 


7E00 : page T 

8300 : page U 

8800 : page V 

8D00 : page W 

9200 : page X 

9700 : page Y 

9C00 : page Z 

A100 : page [ 

A600 : page è 

AB00 : page ] 

B000 : page à 

B500 : page é 

MODE D'EMPLOI 

— Ecrire CLOAD'"' pour charger 
le programme. 

— Ecrire CALL # 1000 pour met¬ 
tre en marche l'éditeur de textes. 

— A la question "Quel est le 
NOM ?", indiquez le nom d'accès 
au texte écrit, puis [RETURN). Si 
vous ne connaissez pas, appuyez 
sur RETURN, mais vous perdrez 
les textes inscrits dans l'ordina¬ 
teur. 

— A la deuxième question "Quel 
est le Nom ?", indiquez le nom 
d'accès aux textes que vous allez 
écrire (exemple : EDITEXTES) 
puis [RETURN). 

— Ensuite, le menu s'affiche : 

Bonjour, 

— Pour LIRE une page, indique la 
LETTRE de la page. 

— Pour LIRE la page suivante, 
presse " — ", 

— Pour LIRE la page précédente, 
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-utilitaire 


presse " — 

— Pour ECRIRE un texte, presse 
DEL. 

— Pour mettre EN PAGE le texte, 
presse RETURN et la lettre. 

— Pour IMPRIMER des textes, 
presse ESC et répond aux ques¬ 
tions. 

— Pour SAUVEGARDER les 32 
pages, il faudra écrire : 

CS A VE "TEXTES", A# 1000, 
E # B500. 

Remarque : 32 pages de "à” à 
"é" en passant par A-Z à raison 
de 1280 octets/page. 

— Presser la touche [DEL], vous 
êtes en mode écriture. La page 
(ici le menu) en cours reste sur 
l'écran. 

— Faites CTRL Q pour faire appa¬ 
raître le curseur. 

— Faites CTRL L pour effacer 
l'écran. 


— Ecrivez : EDITEXTES. 

— Pressez [DEL] pour effacer le 
S. La touche IDEL] a maintenant 
repris son rôle d'effacement. 

— Pressez la touche I — ] 8 fois 
pour amener le curseur au-dessus 
du premier E. 

— Faites CTRL B 4 fois : le D se 
déplace d'autant pour pouvoir 
effectuer une insertion. 

— Faites CTRL E 12 fois : les let¬ 
tres s'effacent les unes après les 
autres. 

— Presser simultanément les 
touches ICTRL] et |T] ( Faites 
CTR T) pour accéder aux minus¬ 
cules). 

— Ecrivez B en pressant simulta¬ 
nément [SHIFT] et [B]. 

— Ecrivez finalement : Bonjour, 

— Faites à nouveau CTRL T pour 
accéder aux majuscules. 

— Ecrivez : PAGE A. 

— Faites CTRL Q pour faire dis¬ 
paraître le curseur. 


— Pressez la touche IRETURN] 
pour mettre en mémoire la 
phrase. 

— Il vous faut maintenant indi¬ 
quer dans quelle page mémoire la 
phrase va être mémorisée. Pour 
cela, faites SHIFT A pour mémo¬ 
riser l'écran à la page A majus¬ 
cule (l'appui sur SHIFT n'était pas 
obligatoire, mais faites attention 
à ne rien inscrire dans les pages 
a, b, c, .... car vous accéderiez à 
la ROM). 


LES VOYELLES 
ACCENTUÉES 

ê 

û 

non shiftée 
shiftée 

ù 

- 

shiftée 

é 

7 

shiftée 

à 

6 

shiftée 

è 

4 

shiftée 

à 

2 

shiftée 


n 

5- MODIFICATIONS POUR OR IC- 

■l 



#1000 

409* - 

2014118990801220EOCR20F4OCR2FFERROBRPRO0 = 

O 

945 ÿ 

#1014 

411* - 

7012F0034C3011F01FD8F02014118990801220ED 

s 

204* g 

#102* 

413* - 

CB20F4CCR2FFE8BOBBBB9P7012F01FP0F5R2FFE8 

=: 

3539 g 

#1030 

415* - 

80801285*888808012856BB0FFEBC8BPB012916Rf 


2^58 S 

#10*™ 

417* - 

C007D0F5F045D0F38915300034200012RP0C02C9 

= 

2153 g 

#10*4 

419* - 

7FÔ005091420D2F3R9028D*R02?005F9r900F0F9 


2297 O 

#1078 

421* - 

C908D00160C97FDB342005E9C900F0F9C902D003 

= 

2478 J 

#1080 

423* - 

4C8011C905D0034CC011C90OF0078R203FF74C81 


2101 

#1080 

425* - 

102003E9C900F0F9C90PF0F52000132010124C60 

= 

19*4 

#1084 

427* - 

10C909D0 i. 5EE0004EF0004FE0004EE0004EE0004 

= 

1**5 

#1003 

429* - 

20001240*01009080015CE0004CF0004CE0004CF 

= 

1512 

#10DC 

431* - 

0004CÊ00042000ï 24C6010C94030î 00958300340 

= 

1200 

#10F0 

433* - 

*0102000132000 1 240*01009iBF0034C60102020 

= 

1124 

#1104 

435* - 

î 3400 ï14Efl20B0CC605555555555ERE8fl90C20D3 


2175 

#1118 

437* - 

F5R9023D6R0260ER70î 512E*ëOfl5*DC9B5D0F5*0 

= 

2*10 

#112C 

439* - 

55555555820089159D88BBE8E828D0F8200flCCfl9 


2531 

#1140 

441* - 

1005*02020114r1F10555555555555FR18806902 


1520 

#1154 

443* - 

*512856FR513*90085*^*08818R56E6901856F85 

= 

2038 

#11*8 

445* - 

*F*90085*F60555538R5*rE901R56O856OF90085 


2170 

#117C 

447* - 

6D605555EflEflEREflEREflERF.8FRERF0205011R9B6 

s 

8429 

#1190 

449* - 

856CR9BF356OO5*FD009R5*OC5*FO0034O81 j. 000 

— 

2540 

#1184 

4516 - 

00P î *0090000082070 î120701181*008030931*r 


21*4 

#1188 

453* - 

207011409*115555205011C98FO00905*FC9B8O0 

s 

2182 

#11CC 

455* - 

034081100001B1*F091700l4P003B16FR00091*F 

= 

1989 

#1180 

457* - 

20*01120*01120601 1400311000091*F?fl£01j 4r 


1359 

#11F4 

4596 - 

03115555555555RR5555ERERRO0004856BR9BB85 

= 

2351 

#1208 

4*1* - 

*08200402012Î5555RD0004856DR9BB856BR2004C 

= 

1320 

#121C 

4*36 - 

20125555E8E001F005R9004C2C12R980856R856C 

S 

2006 

#1280 

4*5* - 

800081*891601885*0*90135*085*0*90085*013 


1985 

#1244 

4*7* - 

05*8*90185*0fl56B*90085*B05*flF005F00RC900 

= 

2184 
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#1250: 
#126C: 
#1280' 
#1294 : 
#12R8 1 
#12BC 1 
#12D0= 
#1?F4 ! 
#12FR: 
#1?0C: 
#1320 : 
#1334: 
#1349: 
#135C= 
#1370: 
#1384: 
#1398: 
#13RC: 
#13C0: 
#1304' 
#13E8: 
#13FC* 
#1410: 
#1424 
#1438 
#144C 
#1480 
#1474 
#1488 
#149C 
#1480 
#14C4 
#1408 
#14EC 
#1500 
# Ï514 1 
#1528= 
#153C: 
#1550: 
#1584: 
#1578: 
#158C: 
#15R0: 
#1584= 
#15C8: 
#15DC: 
#15F0: 
#1604: 
#1618: 
#162C > 
#1640: 
#1654: 
#1668: 
#167C: 
#1690: 
#16R4 * 
#1688: 


4696 - F0034C30124C2012C9E0F0034C30126855555555 = 1757 

4716 - 552R55RR42454348552020202020202020202020 = 1093 

4736 - 202020202017002020202020202020205175656C = 878 

4756 - 20657374206C65204Ê6F6D004E62204578656P70 = 1654 

4776 - 6C6169726573200086001@081C2424241E08B6F0 = 1466 

4796 - 1P00IC2424241E00B52010081C223E201E00B6E0 * 1023 

4816 - 1C001C223E201E00B530040R1C223E201F0086F8 = 1071 

4836 - 1008242424241R00B7F01C00242424041R004563 * 935 

4856 - 72016E73200055FR38E9408D0004186000046000 = 1531 

4876 - 046D00046D000469158D00046055555555RR5555 = 1277 


4896 - 201411R9F6R01220EDCB20F4CCR2FFE8BDB3BB9D = 2975 
4916 - E013E01RD0F5201411R9R0R01220FPCB20F4CCR? = 2636 
4936 - FFE838BDBBBBC920F009F.9309DFD13E003D0EE8E = 3113 
4956 - 0104R2008E0204RP0104C900F00RC90 ÏP007ROFO = 1787 
4976 - 138P020460C902D02BRDFE138D0404RDFD138D03 = 1900 


4936 

5016 

5036 

5056 

5076 

5096 

5116 

5136 

5156 

5176 

5136 

5216 

5236 

5?56 

5276 

5296 

5316 

5336 

5356 

5376 

5396 

5416 

5436 

5456 

5476 

5496 

5516 

5536 

5556 

5576 

5596 

5616 

5636 

5656 

5676 

5696 

5716 

5736 

5756 

5776 

5796 

5816 


04R200ECP304D00B18RD04046D02048P020460E8 
18R90R6D02043P02044C8713RPFF088D0404RDFE 
138D0304R200ECFP13F0CE18R9646D02048P0284 
E84CB21355flR553555fi95555555555R555555555 
5555555555555555555555554320202029202020 
2020202020282020202020202020202020202055 
55010903Eflfl9FF8D0504RC0204CR00P0034C58I0 
CF0204EE0504RF0504BPE013C92BF0E1F01RF0PP 
2000132000122038144C1314R9RB956BR9R8856R 
R300-:66r966PflR00846FF66rfl c :6C09‘ s i 1 P01 RR9?0 
207BF5R920207BF5R920207BF3R920207BF5R46E => 
846CE66CB16RC923D011R920207BF5ES5ER46EC0 
51P0F3R000846EC924D002R9R7C926D002R9R6C9 
40D002R9R2r95FP002R9R3C95FP002R9B6C95FD0 
02R9R8C97CP002R9B7207BF518R56R6901856RR5 
6P69RRR56Pfl5KRfl66nE004F0P9r30oppR2E66P4n 
3F14C9B8D0F9R90R4C7BF5201700202020202020 
2020202020202020202020202020202020202020 
2020202020202020202020201700202020426F6E 
6R6F75722C2020202B2020202020202020202020 
2020202020202020202020201700202020282020 
2020202020202020202020202020202020202020 
2020202028202020202020201700202028282020 
506F7572204C69726520696E6469717565206C61 
206C657474726520646520201700606120706167 
652F70?0?0?02020140620204544495445555220 
444520544558544553203R204D2E204245434855 
2047757920202020170020202020202020202020 
2020202020202020202020202020202020202020 
2020202020202020170020202020202020202020 
2020202020202020202020202020202020202020 
20202020202020201700426F6E6R6F75722C2020 
2020202020202020202020202020202020202020 
2020202020202020170020202020202020202820 
2020202020282020202020202020202020202020 
202020202020202817002020202D20506F757220 
4C49524520756E6520706167652C696F64697175 
65206C612020202017004C455454524520646520 
6C6120706167652E202020202020202020202020 
202020202020202017002020202D205O6F757220 


= 1423 

a 1707 
= 1838 

* 2114 

= 1311 

= 693 

= 1667 

= 2483 

- 1488 

= 2^77 

2477 

= ???9 

= 2702 

= ?RRR 

a 243 î 
a 2301 
= 1794 

= 640 

= 790 

=» 972 

= 599 

= 640 

= 612 
= 1870 

* 1557 3 

= 991 -q 

* 1282 £ 
= 812 2 

= 640 ^ 

= 599 lU 

S 640 g 
= 11225 
a 640 
= 599 

= 640 

= 906 

a 1799 
a 1218 
= 1080 
= 906 


4C495245206C6120706167652073756976616F74 
65202C2020202020179070726573736520222020 


1792 
1161 
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3 


#16CC 

5836 - 

2D3E20222E202020202020202020202020202020 

= 

699 

#16E0 

5856 - 

202020202020202017002020202D20506F757220 

— 

906 

#16F4 

5876 - 

4C495245206C6120706167652070722663266461 

3 = 

1612 

#1708 

5896 - 

6E7465202020202017007072657373652022203C 


1326 

#171C 

5916 - 

2D2P20222E202020202020202Q20202020202020 

— 

632 

#1780 

5936 - 

202020202020202017002020202D20506F757220 


906 

#1744 

5956 - 

45435249524520756E207465737465282C207072 

2= 

1621 

#1758 

5976 - 

6573736520202020170044454C2E202020202020 

=3 . 

1034 

#176C 

5996 - 

2020202020202020202020202020202020202020 

= 

640 

#1780 

6016 - 

202020282020202017002820202D20506F757220 

= 

906 

#1794 

6036 - 

6D657474726520454E2050414745206C65207465 

sa 

1643 

#1788 

6056 - 

7374652C20202020170070726573736520524554 

s: 

1457 

#17BC 

6076 - 

55524E206574206C61204C65747472652E202020 

= 

1529 

#17D0 

6096 - 

202020202020202017802020202P20306F757220 

= 

906 

#17E4 

6116 - 

494D5052494D455220646573207465787465732C 

n 

1706 

#17F8 

6136 - 

7072657373652020170045534320657420722670 

= 

1509 

# 180C 

6156 - 

6F6E6420617578207175657374696F6E732E2020 

=: 

1832 

#1820 

6176 - 

202020202020202017002020202D20506F757220 

ss 

906 

#1834 

6196 - 

5341555645474152444552206C65732033322070 

= 

1458 

#1848 

6216 - 

616765732C2020201700696C2066617564726120 

= 

1483 

#185C 

6236 - 

2663726972652038202020202020202020202020 

SS 

1045 

#1870 

6256 - 

20202020202020201700202020202043534l5645 

— 

809 

#1834 

6276 - 

22544558544553222C4123313030302C45234235 

— 

1149 

#1898 

6296 - 

303020202920202017002020202020202028202© 


631 

#18RC 

6316 - 

2020202020202020202020202020202020202020 

= 

640 

#18C0 

6336 - 

2020202020202020170O20205271383332207061 

= 

938 

#18D4 

6356 - 

6765732064652022402220402022262220656E20 


1225 

# 18E8 

6376“ - 

70617373616E7420170070617220412D58204020 


1500 

#18FC 

6396 - 

726169736F6E2064652031323830206F63746574 

= 

1695 

#1910 

6416 - 

792F706167652E20170020202020202020202020 

SS 

996 


LISTING 


Pour ceux qui ne possèdent 
pas un assembleur, il faudra 
copier le programme en Basic, 
faire RUN puis écire la chaîne de 
caractères [RETURN], puis la 
somme [RETURN] correspondant 
à l'adresse indiquée. 




0 REMEDITEUR DE TEXTES 
10 HIMEM#999:CLS 
40 F0RR=#1000T0#14C1STEP20 
50 PRINTHEX$(R)‘: ’R'-TABdS); 
60 INPUTTS 

70 IFLEN(T$)O40THEN200 
80 INPUT"SOMME';S:C=0 
90 FORT=0TO19 

100 K=VAL( , I*+MID$(T$,2*T+1,2)) 

110 POKER+T.K 

120 C=C+K 

130 NEXTT 

140 PR1NT*C= ";C 

150 IFSOCfHEN200 

160 PRINTCHRidl)' EXACT. 

170 NEXTR 

180 DOKE02F5,#8000 
190 END 

200 PING.-PRINT' ■CHR$(27) > - 
210 PRINT’ERREUR ...':GOTO50 


THEoRto 
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ICÏ 


# i 000 
#1014 
#1028 
#103C 

#1050 

#1064 

#1078 

# 108C 
#1080 
#1084 
#1 0C8 

# 1000 
#10F0 
#1104 
#1 1 18 
#112C 
#1 140 
#1154 
#1168 
#117C 
#1190 
#1184 
#1188 
#11CC 

# 11E0 
#11F4 
#1208 
#121C 
#1230 
#1244 
#1258 
#1280 
#1280 
#1294 
#1288 
#128T 
#12D0 
#12F4 
#1?F8 

# 1300 
#1320 
#1334 
#1348 
#1350 
#1370 
#1384 
#1398 
#1380 
#1300 
#1304 
#13E8 
#13FC 
#1410 
#1424 
#1438 
#144C 
#1460 


INS VERSION 

4096 - 
4116 - 
4136 - 
4156 - 
4176 - 
4196 - 
4216 - 
4236 - 
4256 - 
4276 - 
4296 - 
4316 - 
4336 - 
4356 - 
4376 - 
4396 - 
4416 - 
4436 - 
4456 - 
4476 - 
4496 - 
4516 - 
4536 - 
4556 - 
4576 - 
4596 - 
4616 - 
4636 - 
4656 - 
4676 - 
4696.- 
4716 - 
4736 - 
4756 - 
4776 - 
4796 - 
4816 - 
4836 - 
4856 - 
4876 - 
4896 - 
4916 - 
4936 - 
4956 - 
4976 - 
4996 - 
5016 - 
5036 - 
5056 - 
5076 - 
5096 - 
5116 - 
5136 - 
5156 - 
5176 - 
5196 - 
5216 - 


ATMv'S 

201411 8990R01 320R0l‘r-2ri:30rf >82Fr[ : ‘ tOOPPRI 'Of 1 - 
7012F003483011 FO1FO0F02P1411899080122080 - 
OO2080COR2FFF8BOBBBB9O7012E01FO0F582FFE8 = 
808012856BE8BOB012856R80FFE8C8BDB0129168 - 
C007O0F5E045O0E389158000042080128O0C02C9 » 
7FO00589142002F6H902806fl022078FB C 9 Ü fl F0F9 = 
C908000160O97FO0342078EBO900F0F9C902D003 - 
4C8011C905O0034CC011C90DF00788207CF74C81 = 

102078EBC900F0F9C90OF0F52000132010124C60 - 
1009990015EE0004EE0004EE0004EE0004EE0004 = 
2000124C6010C908O015CE0004CE0084CE0Ô04CE = 
0004CF00042000124C6010C9403010C95B30834C = 
601 i;i20y 0132000124C6010C91 F’F 0034060102020 — 

13408ïï 4E020B0CC605555555555E8E0090C2002 = 
F609028O680260E8201512E66OR56OC9B5D0F560 = 
55555555820089159O80BBE8E028O0F820CECC89 - 
î 88560202011401F10555555555555E818806902 = 
6512856E85136900856F60E818856E6901856E85 = 
6F6900856F60555538856CE901856C856DE90085 = 
6O605555E8E8ERE8E8E8E8FRE8E8EH20501189B6 = 
856C89BF856OO56FO009856CC56EO0034C811080 = 
00B16CC9080008207011207011B16CC8C8C89160 = 
20701140961155552050l1C9BFD009R56EC9B8O0 = 
034081108081B16EC917001480031316E8000916E = 
2060112060112060114008118008916E20601140 = 
031155555555558fl5555EflE08O0004856Bfl9BB85 = 
60820040201255558O0004856D89BB856B82004C « 
20125555E8F001F00589004C2C12898885688560 = 
88008l6891601885606901856085606900856018 = 
856869018568056B6900356B056RE005F00RC900 = 
F003403012402012C9E0F0034C30126055555555 •= 
5528558845444954455854455320202020202020 = 
2020202020170020202020202020202051756560 - 
20657374206C65204E6F6O004E62204578656D70 - 
6061697265732000B6001008102424241E00B6F0 - 
1000102424241E00B520100810223E294E00B6E9 - 
10001C223E201E00B53004081C223E201E00B6F8 - 
1008242424241800B7E010002424240418004563 - 
72616E732000555538E9408D0004186000046090 - 
0460000460000469158000046055555555885555 = 
20141189F6801220B0CC20S0COR2FFESBOB3BB9D - 
E013E018O0F52014118980801220B0CC2080CO82 = 
FFE83BBOBBBBO920F009E9309OFO13E903O0EE8E = 
010482008E02048O0104C900F008C901O0078OFO - 
138O020460C902O02BROFEl38O04048DFO138003 - 
048200EC0304D00B18800404609204800294 60F.8 » 

18890860020480020440871380FF138D04048OFE = 

13800304R200E C F 013F0CE188964600204809204 :=: 
E84CB2 1 355885555558955555555558555555555 = 
5555555555555555555555554142434445202020 - 
2020202020202029202020202020202020202055 = 
55010903E889FF8D05040C0204C000O0034C5810 = 
CE0204EE0504RE0504BOE0 1 3C920F0F1E918F0OO = 
2009132000122Q301440131489BB356B89838560 = 
8200866CR000E66C856CC95100 1 889202001F589 - 
202001F5R92020C1F5892020C1F58460F660B168 = : 

0923000089202001F5C8C05100F6HPP0r9240093 = 


I 985 

,:425 

2958 

2153 

2306 


’i i c , 

2661 
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PROGRAMME 










#1474 

#1488 

#1490 

#14B0 

# 14C4 

# 14D8 

# 14EC 

# 1500 
#1514 
#1528 
#1 530 
#1550 

# 1564 
#1578 

# 158C 
#15R0 

# 1584 
#15C8 

# 15DC 
#15F0 

# 1604 
#1618 

# 1620 
#1640 
#1654 
#1668 
#1 67C 
#1690 
#16R4 
#1688 
#1600 
#16F0 
#1 6F4 
#1708 
#171C 
#1730 
#1744 
#1758 
#1 76C 
#1780 
#1794 
#1783 
#1780 

# 17D0 

# 1 7F4 

# 1 7F8 

# 1 80C 

# 1 8?ri 
#1834 
#1848 

# 185C 
#1370 

# 1 334 
#1898 

# 1 8flf: 

# 1 8 f .'0 
#1804 
#1 8F8 

# 1 8F r 
#1910 


5236 - 
5256 - 
5276 - 
5296 - 
5316 - 
5336 - 
5356 - 
5376 - 
5396 - 
5416 - 
5436 - 
5456 - 
5476 - 
5496 - 
5516 - 
5536 - 
5556 - 
5576 - 
5596 - 
5616 - 
5636 - 
5656 - 
5676 - 
5696 - 
5716 - 
5736 - 
5756 — 
5776 - 
5796 - 
5816 - 
5836 - 
5856 - 
5876 - 
5896 - 
5916 - 
5936 - 
5956 - 
5976 - 
5996 - 
6016 - 
6036 - 
6056 - 
6076 - 
6096 - 
6116 - 
61 36 - 
6156 - 
6176 - 
6196 - 
6216 - 
6?96 — 
6256 - 
6276 - 
6?96 - 
6316 - 
6336 - 
6356 ~ 
6376 — 
6396 - 
6416 - 


□ 


- . . f 

- 

- ??49 

= 2-129 

= 599 

- 640 

= 790 

= 97? 

~ 599 

= 640 

= 61 ? 

- 1870 


fl9fl7C926D002fl9fl6C940D002fi9fl2C95FD002R9ft3 
C95FD002ft9B6C95CD002fl9fl3C97CD002fl9B720Cl 
F518fi56fl6901856RR56B6900356Bfi56flE004F008 
C900D001E84C3C14C9B3P0F9R90R4CC1F5202020 
2020202020202020202020201700202020202G20 
2020202020202020202020202020202020202020 
2020202020202020202020201700202020426F6E 
6R6F75722C2020202020202020202020202O2020 
2020202020202020202020201700202020202020 
2020202020202020202020202020202020202920 
2020202020202020202020201700202020202020 
506F7572204C69726520696E6469717565206C61 
2060657474726520646520201700606120706167 - 1 ' 

652E20202020202013010C454449544555522044 - 
4520544558544553203R204D2E20424543435520 = 
4775790720202020160420202020202020202020 * 
2020202020202020202020202020202020202020 = 
20202020202020201604202020202Q426F6E6R6F = 
75722C2020202020202020202020292020202020 = 
2020202020202020160420202020262020202020 - 
20202020202020202Q2020202020202020202020 = 
2020202020292020160420202020202020202020 = 
2020202020202020202020202020202020202020 = 
202020202020202016042020202D20506F757220 = 
4C49524520756E6520706ï67652C696E64697175 = 
65206C6120202020160440455454524520646520 = 

6C6120706167652E202020202020202020202020 = 
202020202020202016042020202D20506F757220 = 
4849524520606l20706167652073756976616E74 * 
65202C202020202016047072657373652022202D = 
2D3E20222E202020202020202020202020202020 = 
202020202020202016042020202D2Q506F757220 = 
4049524520606120706167652070722663266461 = 
6F74652020202020160470726573736520222030 “ 
2D2D20222E202020202020202020202020202020 - 
202020209020202016G42020202D20506F757220 = 
45435249524520756E207465787465202O207072 = 
6573736520202020160444454C2E202020202020 = 
2020202020202020202020202020202020202020 = 
202020202020202016042020202D20506F757220 = 
6D657474726528454F2050414745206065207465 - 
7874652020202820160470726573736520524554 = 
55524F206574206061204C65747472652E2O2020 = 
?0?090?0 ?r20202016042020202D20506F757220 = 
494D5052494D4552206465732074657874657320 = 
7072657373652020160445534320657420722670 = 
6F6E6420617578207175657374696F6E732E2020 


?0?02020?0?0202016042020202D20506F757220 
«=;941555645474152444552206065732033322070 
6ï676573202020201604696020666l7564726120 
2>6f;372697265?0?R2020?0?020?0202020202020 
? 0 ?020?020?020?0160420207020204353415645 
2254455854455322204123?13030302045234 285 
3R302020202028201604202020202O2020202O20 
202020202020202020202020202020202O202020 
20202020202020201604202052713R3332207O61 
6765732064652022402220402022262220656F20 
70817373616F74201 60470617220412C-5R204020 
726169736F6E20646520?1323830206F63746574 
732F706167652F20160420202020202O20202020 


1001 
1246 
790 
640 
946 
819 
602 
640 
602 
640 
909 
1799 
1221 
1 080 
909 
1792 
1 164 
699 
909 
1612 
1329 
682 
909 
1621 
1037 
640 
909 
1643 
1 460 
1529 
909 
1 706 
1.51? 

1 03? 

900 
1458 
1 486 
1 045 
8 I ? 

1 149 
634 
640 
94 1 
! 225 
1 50 3 
1 

\i90 
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PAGE INITIALE (MENU) 








utilitaire 



Rémy SCHULZ 


L e programme utilitaire que 
nous proposons ici est un 
extrait du 'BASIC TURBO”, édité 
sur cassette de chez ARG 
(COBRA SOFT), dont Rémy 
SCHULZ est bien sûr l'auteur. 
Nous vous laissons découvrir ce 
petit utilitaire, tournant aussi bien 
sur ORIC-1 que sur ATMOS, dont 
vous ne saurez plus vous passer. 



SUPERNUM est un programme 
de numérotation automatique qui 
présente les particularités suivan¬ 
tes : 

— possibilité de rentrer des lignes 
de 250 caractères, non compris 
le numéro de ligne ; 

— possibilité de valider, dans une 
ligne, tous les codes accessibles 
au clavier ; 

— possibilité d'abréger les 
commandes Basic. On peut, par 
exemple, entrer RESTORE en 
tapant R, E puis SHIFT de droite 
avec S (sur ATMOS, on peut 
employer la touche FUNCT) ; 

— facilité d'emploi : le pro¬ 
gramme s'écrit normalement à 
partir de 1281, la touche DEL est 
efficace, on quitte le mode 
SUPERNUM par CTRL C, on y 
revient par !. On peut modifier le 
prochain numéro de ligne et l'in¬ 



crément en dokant les valeurs 
désirées en 0 et 2. Attention 
cependant : SUPERNUM stocke 
une nouvelle ligne en fin de pro¬ 
gramme, quel que soit son 
numéro. Il faut donc écrire des 
lignes intercalaires en mode nor¬ 
mal ; 

— possibilité de créer d'autres 
commandes à son gré, en modi¬ 
fiant les lignes 10 à 18 ; 

— possibilité enfin d'employer 
une autre table de mots-clés, en 
dokant en 4 l'adresse de cette 
table (Basic français, par exem¬ 
ple). SUPLISTE permet de créer 
une telle table. 

Un conseil : sauvegarder SUPER¬ 
NUM avant de le lancer, car le 
programme s'autodétruit après 
avoir chargé la routine machine 
en page # B4 et transféré les 
lignes essentielles 10 à 18 en 
page 4. 

Nous ne donnons pas le listing 
assembleur de la routine 
machine, car elle est pour la plus 
grande part copiée sur la propre 
routine d'interprétation de ligne 
de l'ORIC. Notre routine procède 
aux opérations suivantes : 

— elle analyse le contenu de la 
page # B8 (au lieu des 80 octets 
du tampon clavier) et traduit les 
mots-clés reconnus en codes 
d’un seul octet (tokens). Elle uti¬ 
lise pour cela une table dont 
l'adresse est stockée en 4-5. 
#C0E9 est l'adresse de la table 
utilisée par l'ORIC ; 

— elle transfère le contenu de la 
ligne interprétée en fin de Basic ; 

— elle rajuste les pointeurs, cal¬ 
cule le lien vers la ligne suivante, 
ainsi que le numéro de cette 
ligne ; 

— elle revient au Basic en posi¬ 
tionnant le pointeur # E9 sur la 
page 4, qui rappellera la routine 
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pour valider une nouvelle ligne... 
Les lignes 10 à 18 sont écrites en 
Basic pour permettre des modi¬ 
fications aisées, à condition de 
rester dans les limites de la page 
5. La ligne 20 vérifie cette 
condition. 


COMMENTAIRES 


— 10 : le GOTO permet de lan¬ 
cer le programme par RUN. Il est 
effacé aux lignes 870-880. 

— 11 : départ d'une boucle 
REPEAT. P représente le code 
ASCII de la touche pressée, Q 
une valeur correspondant à l'ap¬ 
pui des touches de fonction 
(SHIFT, CTRL, FUNCT). 

— 12 : ligne autorisant les abré¬ 
viations. Q = 167 correspond au 
SHIFT de droite, sur ATMOS on 
a tout intérêt à faire Q=165 
(FUNCT). Attention à ce qu'il faut 
donner un nombre suffisant de 
caractères pour que la routine 
puisse identifier le mot-clé, un 
seul est parfois suffisant (FUNCT 
V>VAL, FUNCT S>SHOOT, 
mais FUNCT E>END et non 
ELSE ou EXPLODE). 

— 13 : CTRL C arrête le pro¬ 


gramme. 

— 14 : affiche le logo ORIC pour 
les attributs. Option utile au 
départ que l'on pourra supprimer 
lorsque l'on aura pratiqué un tant 
soit peu SUPERNUM. 

— 1 5 : on poke P en page # B8 
si ce n'est pas DEL. 

— 16 : affichage : fin de la bou¬ 
cle si RETURN appuyé seul. CTRL 
ou SHIFT RETURN permettent 
d'inclure dans la ligne des 
CHR$(13). 

— 18 : on signal à la routine la fin 
de la ligne par un 0, et on l'ap¬ 
pelle. 

Constatons que les lignes 12,13 
et 14 sont facultatives, et qu'il 













est possible de les remplacer par 
d'autres fonctions. Suggérons, 
par exemple, IF P = 26 THEN 
P = 30 qui permet d'afficher avec 
CTRL Z, un CHR$(30) malheu¬ 
reusement inaccessible au cla¬ 
vier. Ce code ramène le curseur 
en haut à gauche de l'écran sans 
l'effacer. 

Une autre fonction utile serait un 
PING A=#B900, mais recon¬ 
naissons qu'avec 250 caractères, 
on a de la marge... 

C'est surtout dans l'affichage 
d'écrans TEXT ou LORES que 
SUPERNUM va démontrer sa 
puissance. Outre les 250 carac¬ 
tères par ligne qui permettent de 
définir un écran entier en un 
maximum de 5 lignes, l'utilisation 
directe des attributs et la visuali¬ 
sation immédiate de leurs effets 
va simplifier grandement la tâche 
du programmeur. Attention tou¬ 
tefois que les attributs ne doivent 
apparaître qu'à l'intérieur de guil¬ 
lemets, ou encore dans des REM 
ou des DATA. Par exemple, au 
lieu des sempiternels CHR$(4); 
CHR$(27);"J"; qui permettent 
d'afficher un message en double 
hauteur, on peut faire directe¬ 
ment PRINT"CTRL D ESC J, 
etc... On a aussi ESC A à G pour 
définir l'encre, ESC P à W pour 
le papier, les touches fléchées et 
CTRL RETURN pour positionner 
le curseur, bref on peut program¬ 
mer exactement ce que l'on peut 
afficher en mode direct, avec 
250 caractères au lieu de 80. 
Quelques trucs en mode SUPER¬ 
NUM. On peut passer en minuscu¬ 
les en faisant CTRL T puis DEL pour 
éviter que le CHR$(20) soit inclus 
dans la ligne. On peut empêcher une 
ligne d'apparaître au listage écran en 
la terminant par 'CTRL N CTRL K. 

Il a été mentionne "SUPLISTE", 
dans cet article, C'est également un 
utilitaire, extrait de ''BASIC 
TURBO". Outre les caractéristiques 
de SUPERNUM, "BASIC TURBO" 
offre d'autres possibilités, comme 
celles de créer son propre vocabu¬ 
laire (Basic Français, par exemple, ou 
choix encore plus fantaisiste), de 
modifier un programme sans détruire 
les variables, de bénéficier pleine¬ 
ment des possibilités de l'imprimante 
(accentués), etc. 

Basic Turbo est commercialisé 
par ARG COBRA SOFT. 


utilitaire- 


10 GOTO 20:CLEAR:A=#BS04:PRINT DEEK(O); 

11 REPEAT:GET A*:A=A+1:P=PEEK(53):Q=PEEK<521) 

12 IF 0=167 THEN POKE A,P+128:PRINT”.“; :UNTIL 0 

13 IF P=3 THEN CLEAR:END 

14 IF P<32 AND <P<8 OR P>15) THEN PRINT CHR*<96>; 

15 IF P=127 THEN A=A-2 ELSE POKE A,P 

17 PRINT CHRt(P); :UNTIL P=13 AND 0=56 

18 POKE A,0:PRINT:CALL #8400 

20 D=DEEK(#E9): IF D>1548 THEN EXPL0DE:ST0P 
100 REM ********* SUPERNUM ********* 

110 REM ***** ORICs 1 et ATMOS ***** 

120 REM ***** by R. SCHULZ ***** 

130 REM ********* 04/08/84 ********* 

140 REM 

200 REM Chargeur BASIC de la routine LM 
210 FOR A=#B400 TO #B4E2 STEP 2 
220 READ B:T=T+B:DOKE A,B:NEXT 
230 IF T<>3223228 THEN EXPLODEjSTOP 
240 REM Code machine a doker 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

700 

710 

720 

730 

740 

800 

810 

820 

830 

850 

860 

870 

880 

900 

901 
910 



DATA 1442,1184,10884 
DATA 48618,47104,9605,8905 
DATA 23024,10788,12400,16329,1232 
DATA 47785,10448,57476,160,9860 
DATA 1189,6277,1445,6533,16518 
DATA 59594,6374,720,6630,189 
DATA 14520,6385,61936,32969,12496 
DATA 9733,57508,51432,153,47544 
DATA 47104,15344,59704,61498,51460 
DATA 53335,34050,14378,25577,43472 
DATA 9605,189,61624,50655,61477 
DATA 51419,153,59576,61648,16550 
DATA 9958,6321,58888,53272,58882 
DATA 10265,62480,6321,45264,189 
DATA 4280,39353,47106,160,42264 
DATA 37120,26012,34050,51200,421 
DATA 40081,869,389,40101,65129 
DATA 17029,40357,65385,17285,928 
DATA 47560,47105,17041,63696,37320 
DATA 33858,51264,17041,42264,25922 
DATA 41024,37120,51266,17317,105 
DATA 17041,40101,16485,40069,40357 
DATA 105,40325,169,59781,1193 
DATA 60037,96 
REM Entrée des paramétrés 
DOKE 0,1000 ’ numéro de départ 

DOKE 2,10 ’ incrément 

DOKE 4,#C0E9 ' table des mots-cles 

DOKE #2F5,#B4DA ’ adresse pour ! 

REM Transfert page 5 en page 4 
FOR A=#500 TO #5FF 
P=PEEK(A) 

IF P=5 THEN P=4 
POKE A-256,P 
NEXT 

A=#405:REPEAT;POKE A,32:A=A+1 
UNTIL PEEK(A)=58 

REM Autodestruction du programme 
REM et execution de SUPERNUM 
CLS:DOKE #9C,1283:! 
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théorie 



Je m'abonne à la revue THEORIC pour 1 1 NUMEROS 


ATTENTION : pour les mois de juillet et août, il n'y a qu'un numéro. 

Ci-joint un chèque (libelle à l'ordre de SORACOM SARL d'un mon¬ 


tant de.F. 

NOM .Prénom 

Adresse . 

Code postal .Ville . 

Pays. 


Signature. 

Retourner le bulletin à : 

EDITIONS SORACOM — Service abonnements THEORIC — Le Grand Logis, — 10 av. 
du Gai. de Gaulle — 35170 BRUZ. 

TARIF FRANCE. 270,00 

TARIF PAR AVION. 270,00 + 140,00 



SOLUTION 

DES MOTS CACHES 
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COMMANDE ANCIENS NUMÉROS 
(valable jusqu'à épuisement des stocks) 


Numéros 1, 2, 3. 20 F pièce 

Numéros suivants . 30 F pièce 

NOM .Prénom . 

Adresse . 

Code Postal .Ville . 

Frais de port : 6,50 F jusqu'à 2 exemplaires 

9,50 F jusqu'à 4 exemplaires 


13,50 F jusqu'à 6 exemplaires 
Ci-joint, chèque bancaire ou postal de F. 
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Photo non contractuelle 






ORIC ATM0S+PERITEL+AUM+3CASSETTES DE JEUX 


/ 

LOGICIELS ORIC 1 

ASSEMBLER OISASS 102 00 INTERTRON 60 49 

ASTEROIDS 69 97 MONITEUR 1 0 105 55 

CARN 3 60 49 MULTIGAMES 53 37 

CASPAK 7116 ORIBLE 60 49 1 

CASSE BRIQUES 49 61 ORIC FUGHT 37 95 

CENTIPEDE CHENILLE INF 79 46 ORIC FORTM 142 32 

OICO 5 . /. 60 49 ORIC MON 102 00 

OINKY KONG 79 46 PUISSANCE 4 49 81 

EUROPE OU GEOFRANCE 73 53 SPACE CRYSTAL 79 46 

GALAXTON 71 16 STARFIGHTER 79 46 

GALAXY 5 79 46 THE ULTRA 79 46 

GENCAR 105 55 TRAITEMENT 30 105 55 

MOPPER OU JOGGER 79 46 WORD PROCESSOR 166 04 

HYPER MASTER MIND 60 49 ZODIAC 79 46 

PERIPHERIQUE & ACCESSOIRES 

Moniteur couleurs OR14. 2750 

Câble péritel avec alimentation. 150 

Moniteur monochrome vert. 950 

Câble pour moniteur monochrome. 80 

Modulateur pour télé noir et blanc. 260 

Magnêtocassette ZETA. 350 

Cassettes vierges (les 10). 75 

Imprimante 4 couleurs MCP40 . 1290 

Imprimante 4 couleurs MCP80 . 2850 

Câble pour imprimante. 150 

Interface joystick programmable . 350 

Joystick QUICKSHOT 1. 95 

— 


LOGICIELS ORIC 1 & ATMOS 


3D INVADERS 

79 46 

J APPRENDS LA CAO 

135 20 

ACHERON S RAGE 

79 46 

KIT ECRAN 

112 67 

L AIGLE D OR 

135 20 

COMPILATEUR BASIC 

171 97 

ANNUAIRE 

10555 

LE PROTECTOR 

71 16 

AS DES AS 

112 67 

LOTORICIELS 

90 14 

AUTHOR 

130 46 

MYSTERV TOWER 

79 46 

CHESS 

79 46 

ORIC BASE 

11267 

CRIBBAGE 

79 46 

ORIC BASIC PLUS 

112 67 

CROCKY 

90 14 

ORIC CALC 

130 46 

DAO 

11267 

ORIC GESTION 1 

142 32 

DAMBUSTER 

79 46 

ORIC GESTION 2 

142 32 

DEFENCE FORCE 

71 16 

ORICADE 

9725 

DONT PRESS LETTER O 

79 46 

OR ION 

71 16 

DRAUGHTS <D*m*») 

79 46 

ORISCRIBE 

171 97 

FRIGATE COMMANDER 

74 72 

PROBE 3 

85 39 

GASTRONOM 

71.16 

OUACK A JACK 

79 46 

GESTION DE STOCK 

135 20 

RAT SPLAT 

79 46 

GHOST GOBBLER 

85 39 

SCUBA DI VE 

79 46 

GOOILLORIC 

71 16 

SUPER COPY ECRAN 

11267 

GREEN CROSS TOAD 

85 39 

SUPER FRUIT 

79 46 

HARRIER ATTACK 

79 46 

TRICK SHOT 

79 46 

HU*BERT 

90 14 

ULTIMA ZONE 

79 46 

INVADERS 

85 39 

XENON 1 

97 25 

J APPRENDS L'ANGLAIS 

105 55 

ZORGON S REVENGE 

88 95 


PROMO LOGICIELS ORIC 1 

6 best sellers des jeux 
d’arcade pour ORIC 1 
pour 200 F! 


ORIC 


LE TUBE DE L'ETE 


Disponible chez votre revendeur ou par correspondance 


EUREKA INFORMATIQUE, 39, rue Victor Massé 75009 PARIS 


Pour commander, utiliser le bon à découper de la page suivante 
















































ORIC ATMOS+MONITEUR COULEUR+MAGNETO K7 


’erformant : On ne présente plus l'ORIC ATMOS : 48 k Octets de mémoire, BASIC performant, graphisme haute résolution couleurs, etc... 
- > our afficher clairement ces performances, nous avons fait construire spécialement un moniteur couleur, l'OR 14 : il est équipé d'un câble qui se 
jranche directement dans l’ordinateur, ce qui facilite les branchements. L'écran assure un contraste et un rendu des couleurs exceptionnel, et 
'amplitude a été spécialement réglée pour obtenir un affichage « pleine page ». 


Complet : l’ensemble que nous vous 
jroposons est « prêt à travailler » (ou à 
ouer !) : un ordinateur ORIC ATMOS. 
in moniteur couleur 36 cm OR 14 de 
îaute qualité, et un magnétocassette. 
/ous avez tout de suite tout ce qu’il faut 
>our démarrer. 


Evolutif : Bien que largement assez per¬ 
formant, l’ensemble construit autour de 
l’ORIC ATMOS peut s’agrandir au fur et à 
mesure de l'évolution de vos besoins ou 
de vos connaissances grâce à de nom¬ 
breuses possibilités de branchements 


Intelligent : Déjà établi comme un best 
seller sur le marché français, l'ORIC 
ATMOS a fait ses preuves et bénéficie 
d’une très large bibliothèque de logiciels 
de toutes sortes (jeux éducatifs, applica¬ 
tions professionnelles) dont un très grand 
nombre en français. 


L'ATMOS et les matériels qui l'entourent sont couverts par une garantie constructeur d’un an par EUREKA INFORMATIQUE, qui a 
récemment acheté ORIC Angleterre et qui est à ce titre propriétaire de la marque ORIC et distributeur exclusif de ses produits 



LE TUBE DE L'ETE 

i 

Les matériels suivants 


5ERNIERE MINUTE: 

.ES 1000 PREMIERES COMMANDES 
SERONT ACCOMPAGNEES DE 
10 CASSETTES DE PROGRAMME 
GRATUITES. 


Bon de commande à retourner à 

Eurêka JnRxma/k/ue 

39, rue Victor Massé 
75009 PARIS 
Tél : 281 20 02 
Télex : 649 385 F 


Disponible chez votre revendeur ou par correspondance 


M 

Adresse 


. !. Code _ Ville _ 

y désire commander : 

(Pq Un ensemble ORIC à 3 490 F 
1 Un ORIC ATMOS à 990 F 


□ 

□ 


Qté 

Désignation 

Prix 





Ci-joint mon règlement par 


(Ajouter 25 F de frais de port si votre 
commande est inférieure à 500 F 


















































